Б. Сойер, Д.Л.Фостер 














































ПЮГРАММИЮВАНИЕ 
ЭКСПЕРТНЫХ СИСТЕМ 
НА ПАСКАЛЕ 



PROGRAMMING 
EXPERT SYSTEMS 
IN PASCAL 


BRIAN SAWYER 
DENNIS FOSTER 


A WILEY PRESS BOOK 
JOHN WILEY & SONS, INC. 

NEW YORK-CHICHESTER-BRISBANE "TORONTO-SINGAPORE 



Б. Сойер 
Д.Л Фостер 


ПРОГРАММИРОВАНИЕ 
ЭКСПЕРТНЫХ СИСТЕМ 
НА ПАСКАЛЕ 



МОСКВА 

"ФИНАНСЫ И СТАТИСТИКА" 


ББК 


24.4.1 

С54 


Сойер Б., Фостер Л-А. 

С54 Программирование экспертных систем иа Паскале: 

Пер с англ.; Предисловие В.П.Иванникова- М.: Финансы 
и статистика, 1990. -191 с.:ил. 

ISBN 5-279-00449-9. 

Книга американских авторов рассчитана на программистов, желающих 
создавать собственные экспертные системы. Описаны архитектура и процесс 
создания небольшой продукционной системы на языке Турбо Паскаль с 
обратной последовательностью вывода. Система документирована полными 
листингами программ и примерами небольших баз знаний. 

Рассмотрен интерфейс ЭС с файлами СУБД и элек тронных таблиц. 

Для программистов, практически осваивающих технологии искусственного 
интеллекта. 


2404010000 - У23 

С-129 - 90 

010(01) - 90 

ISBN 5-279-00449-9 (СССР) 
ISBN 0-471-84267-2 (США) 


©1986 by Brian Sawyer & 
Dennis Foster 

©Перевод на русский язык, 
предисловие, "Финансы и 
статистика",1990 



ПРЕДИСЛОВИЕ К РУССКОМУ ИЗДАНИЮ 

Экспертные системы. Наперное, в нас тоящее время нет 
человека, занимающегося или просто интересующегося 
информатикой, которому не было бы знакомо это слово¬ 
сочетание. Экспертные системы (ЭС) сос тавляют часть сис тем 
искусс твенного интеллекта (ИИ), причем самую существенную 
их часть. Экспертные системы обычно определяют как про¬ 
граммы ЭВМ, моделирующие действия эксперта-человека при 
решении задач в узкой предметной области, на основе 
накопленных знаний, составляющих базу знаний (БЗ). 

Термин "искусственный интеллек т" был введен в 1956 г., 
а в 1964 г. появилась первая версия системы DENDRAL 
(экспертной . системы, предназначенной для определения 
состава сложных органических соединений), которую принято 
считать одной из первых ЭС. Интерес к системам ИИ во всем 
мире существенно возрос после того, как Япония объявила о 
проекте создания ЭВМ пятого поколения (1979 г.). Об этом 
прежде всего свидетельствует значительное увеличение 
ассигнований па разработку систем ИИ. Так, в период 1984-1988 
гг. па эти цели в США было выделено 100 млн. дол., в странах 
ЕЭС - 90, в Японии - 30 млн. дол. Весьма симптоматично и то, 
ч то в последнее время на научных конференциях, связанных с 
работой сложных систем (будь то мощные ускорители элемен¬ 
тарных час тиц или системы автоматизированного проектиро¬ 
вании) обязательно уделяется внимание экспертным систе¬ 
мам. Это означает, что либо без таких систем в данной 
области уже нельзя обойтись, либо, что их использование 
признано экономически выгодным. 

По функциональному назначению ЭС можно раз¬ 
делить на следующие тины. Во-первых, это мощные ЭС, рас¬ 
считанные па узкий круг пользователей (например, ЭС, 
предназначенные для управления технологическими процес¬ 
сами, или некоторые ЭС военного применения). Такие сис темы 
обычно работают в реальном масш табе времени и являются 
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довольно дорогостоящими. Во-вторых, эго мощные ЭС, рас¬ 
считанные на широкий круг пользователей. К ним можно 
отнести системы медицинской диагностики. Базы знаний 
этих систем стоят недешево, так как должны содержать 
уникальные знания, полученные у экспертов высокой 
квалификации. Затраты на создание Базы знаний могут 
составлять до 3 млн. дол. Сбором знаний и формированием 
баз знаний занимается специалист по сбору знаний (часто 
называемый инженером-когнитологом). Затраты на такого 
специалис та подчас превышают 100 тыс. дол. в год. 

Кроме систем названных типов, существуют и более 
простые ЭС, содержащие небольшое число правил (в виде 
которых чаще всего представляются знания в базе знаний) и, 
соответственно сравнительно недорогие. Это системы, рас¬ 
считанные на массового потребителя (например, системы, 
облегчающие поиск неисправностей в различной аппаратуре). 
Применение таких систем позволит организации сократить 
расходы на подготовку квалифицированного персонала и 
существенно уменьшить время поиска и устранения 
неисправностей. Базу знаний такой системы иногда можно 
заполнить, даже не прибегая к консультации квалифициро¬ 
ванных экспертов, а используя сведения из справочных 
пособий и технической документации. 

И наконец, есть довольно простые ЭС, предназначен¬ 
ные для индивидуального использования. Это может бы ть 
лаже "самодельная" система, применяемая изготовителем, 
которому часто приходится разбираться в запутанных 
ситуациях. Если такому специалисту удалось выработать ряд 
эмпирических правил, то он может существенно облегчить 
себе повседневную работу, организовав эти правила в 
некоторую базу знаний и создав на ее основе свою экспертную 
систему. Системы такого типа находят применение в 
юриспруденции, в сфере коммерческой деятельности и с. п. 

Растет интерес к созданию и использованию ЭС и в 
пашей стране, на что указывает ежегодно увеличивающееся 
число публикаций, посвященных этой тематике. В частности, 
несколько книг было выпущено издательством "Финансы и 
статистика". В предлагаемой вниманию читателей книге 
американских авторов Б.Сойера и Л.Фостера, в отличие от 
большинства книг на эту тему, изданных в націей стране, 
описан практический подход к созданию ЭС. В книге 
схематично рассмотрены все основные стадии процесса 
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создания ЭС, начиная от постановки целей и кончая 
программированием. Кроме того, в ней описаны все основные 
подсистемы, входящие в сос тав "традиционной" ЭС. Здесь же 
приведены тексты программ различных модулей ЭС. Эти 
программы представляют собой готовую "оболочку" ЭС, 
которая, будучи наполнена знаниями, становится действую¬ 
щей экспертной системой. Читатель, лишь поверхностно 
знакомый с программированием, може т взять из книги гото¬ 
вые тексты программ и построить свою собственную экс¬ 
пертную систему, наполнив ее базу знаний правилами, 
написанными на русском языке. Более искушенный читатель 
может на примере описанной системы разобраться в общих 
принципах построения программ такого рода и сконстру¬ 
ировать собственную систему для решения конкретных Задач. 
В любом случае книга заслуживает внимания широкого круга 
чита телей, которых привлекае т данная тематика, и несомнен¬ 
но вызовет большой ин терес. 


В. П. Иванников, 
ид.-кор. АН СССР 



Есть целый ряд людей, заслуживающих благодарность 
8а помощь с их стороны. Я хотел бы поблагодарить Ленниса 
Фос тера, а также нашего редак тора и литературных аген тов. В 
полезных дискуссиях участвовали Том Шпари, Брюс 
Д’Амброзио и Элвин Шуп. Особо хотелось бы упомянуть 
Джона Пламмера (который доказал, что на самом деле 
существуют правила выбора галстука) и Чарлза Рубина. И 
наконец, я весьма признателен Рону Джеффрису за 
многолетнюю помощь и поддержку. 


Бриан Сойер 


Олин мой знакомый компози тор сравнивал гармонию с 
двумя различными мелодиями, которые вместе образуют 
более совершенное целое. Это сравнение во многом подходит к 
нашему союзу. Я хотел бы выразить свою признательность и 
благодарность Майку Ларсену и Элизабет Помада, литера¬ 
турным агентам высшего класса, и Терон Шрив из изда¬ 
тельства John Wiley & Sons, Inc. А также моей замеча тельной 
жене Дон за ангельское терпение и моральную поддержку, и 
Мом, которая притворяется, ч то читае т все, что я пищу. 


Деннис Фостер 



ПРЕДИСЛОВИЕ 


О мудрых машинах-советчиках человечество мечтало с 
древнейших времен. Изречение рекомендаций к действию, ос¬ 
нованных на мудрости богов,входило в обязанности греческих 
оракулов. Их современный аналог - компьютерная экспертная 
система - близок к воплощению этой древней мечты. Эксперт¬ 
ные системы - подраздел несколько туманной отрасли ин¬ 
форматики, именуемой искусственным интеллектом (ИИ), - по- 
видимому, "рассуждают" о реальном мире, подражая процессу 
мышления человека и используя логические взаимосвязи, ко¬ 
торые подчас граничат с метафизическими. В отличие от 
простой обработки данных экспертная система оперирует сим¬ 
вольными представлениями о действительности с помощью 
структуры, копирующей процесс анализа некоторой 
конкретной области экспертом - человеком. 

В последнее время интерес к программированию 
экспертных систем чрезвычайно возрос, перешагнув за рамки 
чисто академических исследований и проникнув в область 
коммерции и другие сферы профессиональной деятельности. 
Сейчас экспертные системы используются практически во 
всех отраслях коммерции и управления: от финансовых служб 
и производства до систем военного назначения и образо¬ 
вания. Первоначальный энтузиазм, которым харак¬ 
теризовалось взрывообразное развитие экспертных систем в 
середине 80-х годов, уступил место более реалистическому 
взгляду как па их возможности, так и на ограничения. Тем не 
менее, экспертные системы реально помогают решать 
насущные практические проблемы в деловой сфере, а влияние 
технологии ИИ и экспертных систем на жизнь человеческого 
общества в ближайшем будущем будет быстро расти. 

В этой книге авторы рассматривают цели искусствен¬ 
ного интеллекта, практические применения экспертных сис¬ 
тем, архитектуру программы простой экспертной системы и 
приводят ряд методов программирования экспертных систем 
для использования на персональном компьютере. 

Авторы предполагают, что читатель владеет элемен¬ 
тарными навыками программирования на языке Ассемблера 
или языке высокого уровня. Читатели, уже умеющие 
манипулировать файлами и управлять базами данных, не 
будут испытывать затруднений при знакомстве с основными 
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алгоритмами рассматриваемых примеров. Книга пред¬ 
назначена для администраторов, инженеров по знаниям и 
пользователей, интересующихся как логической, так и 
архитектурной концепциями, лежащими в основе экспертной 
системы. 

Предлагаемая вниманию читателя книга состоит из 
трех разделов. В первом разделе рассматривается развитие 
экспертной системы в перспективе: от ее корней в класси¬ 
ческой философии до современных коммерческих применений. 
Во в тором - демонстрируется методика пос троения экспер тной 
системы от элементарной инженерии знаний до архи тектуры 
системы. Для читателя, желающего построить систему 
самостоятельно, приведен подробный текст программы па 
языке Паскаль, который с точки зрения переносимости 
программ на другие компьютеры и экономичности наиболее 
подходит для массовой ауди тории. Третий раздел описывает 
экспертную систему в действии, па примерах решения 
некоторых обычных жизненных ситуаций, и завершается 
обзором способов организации взаимодействия экспертной 
системы с другими компьютерными прог раммами. 

Приведенные в настоящей книге прог раммы написаны 
с помощью Турбо Паскаля фирмы Borland - популярного и 
недорогого компилятора для IBM PC и совместимых с ним 
компьютеров, требующего не меггее 128 К оперативной памяти. 
Но эти программы могут использоваться не только для 
Турбо. Небольшие изменения позволяют применять их и для 
других популярных версий языка Паскаль, таких как Apple 1.1 
или UCSD Pascal. Эти изменения приведены в приложении Б. 

Некоторые версии Паскаля, в том числе и С тандартный 
Паскаль, не имеют встроенных операций пал строками, необ¬ 
ходимых программе для чтения и аггализа содержимого (рай- 
лов. В этом случае необходимо включить в программу тип 
"строка" и ряд функций для обработки строки, что требует 
более глубоког о зггания языка Паскаль. 

Программы, приведенные в лампой книге, предназначе¬ 
ны главным образом для иллюстрации основных алгоритмов, 
составляющих инструментарий экспертной системы, а гге для 
создания ее идеальной рабочей версии. В завершенном виде 
программа должгга правильно реагировать гга ошибки и оказы¬ 
вать разнообразную помощь пользователю, гго соответствую¬ 
щая доработка ггривсла бы к сущее твеггому увеличению объема 
программы и затруднила бы восприя тие ее структуры. 



ПРОЛОГ 


СИТУАЦИЯ. Однажды, прогуливаясь в пригородной 
роще, вы обнаруживаете только что приземлившийся корабль 
пришельцев. Природная любознательность побуждает вас 
войти внутрь. Появившиеся инопланетяне, не проявив пи 
малейшего дружелюбия, молча приводят вас в пустую каюту и 
там оставляют. 

ВАША ЦЕЛЬ. Освобождение. 

Вы успели заметить, что корабль представляет собой 
многоэтажную громадину со сложным переплетением отсеков, 
коридоров и прочих помещений. От входа, расположенного на 
первом этаже, вас заставили повернуть направо и в полной 
темноте вы прошли около 50 метров, затем сделали поворот 
на 45°. Насчитав 52 шага, вы вошли в лифт, который, суля но 
инерции, поднялся наверх. Когда створки лифта распахнулись, 
захватчики провели вас. на 48 шагов вперед, а затем 
повернули на 45° влево. Через 18 шагов был еще один поворо т 
на 90° влево. Отсчитав восемнадцать шагов, вы вновь 
повернули налево на 45°, и примерно через 50 шагов подошли к 
лестнице. Конвоиры провели вас на два пролета вверх и 
вывели в коридор. Вы сделали 48 шаг ов прямо и повернули 
налево примерно на 45°. Еще 12 шагов и наконец справа 
распахнулась дверь помещения, в котором вас и оставили. 

В этой комнате стены выкрашены в черный цвет. 
Сквозь крошечный иллюминатор в вашу темницу пробивае тся 
слабый свет. По мере того как томительно тянутся дни, вы 
замечаете, что прямые лучи солнца в комнату не попадают. 
На пятый день заточения сопровождающие выводят вас из 
комнаты и отводят в лабораторию, ус тавленную медицинским 
оборудованием, где вас обследуют. Проходя по коридору, вы 
замечаете, что все вокруг серого цвета: металлические стены, 
двери, потолок и даже пол. В лифте вы поднимаетесь наверх. 
Здесь стены тоже выкрашены серым цветом. По пути в 
лабораторию вы сделали три поворота: на 45", на 90° и еще раз 
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па 45°. Лаборатория находится в конце коридора. Сквозь се 
иллюминаторы проходят прямые солнечные лучи, образуя 
овальные пятна на сером металлическом полу. 

Спустя три дня за вами снова приходит молчаливая 
охрана. Лифт поднимает вас на два этажа вверх (суля по 
времени подъема). Стены коридора выкрашены в зеленый 
цвет. Охранник отводит вас на 8 шагов от лифта и 
поворачивает направо. Вы оказываетесь в комнате с глухими, 
без иллюминаторов, стенами. 

Теперь у вас есть вся информация, необходимая для 
того, чтобы проложить маршрут к выходу. 

Ваша задача: построить набор правил для разработки 
маршрута к освобождению из любой точки корабля. 

БАЗА ЗНАНИЙ 

Все знания о расположении помещений внутри корабля, 
полученные вами на основе наблюдений, могут быть 
представлены в виде выражений, описывающих факты, и 
эвристических правил. Некоторые события, очевидцем 
которых вы были, можно выразить так: 

Прямые лучи солнца не попадаю т в иллюмина тор. 

Прямые лучи солнца попадают в иллюминатор. 

Стены комна ты черног о цве т а. 

Стены коридора зеленого цвета. 

Стены коридора серого цвета. 

А вот некоторые из правил, которые вы могли бы 
включить в базу знаний освобождения: 

Если прямые лучи солнца не попадают в иллюминатор, 

то это северная сторона. 

Если прямые лучи солнца попадаю т в иллюминатор, то 

это южная сторона. 

Если стены коридора серого цвета, а направление 

южное, то место - лабора тория. 

Если место - лаборатория, то э таж - первый. 

С помощью этих и аналогичных выражений можно 
прийти к выводу, что ваша комната расположена в северной 
части корабля, и что шахта лифта находится слепа от псе чс- 
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рез лпа правых поворота в южном конце. Кроме того, можно 
заключить, что комната, в которую вас привели, находи тся па 
одном этаже с люком, расположенным в конце восточной 
части корабля, а пульт управления - в начале западной части. 
Вся совокупность эмпирических наблюдений о корабле 
составляет экспертную систему. Цель этой системы 
прогнозирование на основе установленных или вероятных 
отношений для определения пути к выходу из любой точки 
корабля. Правдоподобность полученных решений будет 
зависеть от степени определенности фактов и правил, в 
соответствии с которыми они принимаю тся. 

Например, если вы на 80% уверены в том, что "если 
с тены = черные, то место = комна та” и на 50% - "если мес то = 
комната, то этаж = второй", то уверенность, что вы 
находитесь на втором этаже, при условии, ч то стены имеют 
черный цвет может быть оценена в 90%. Существует 
множество способов подсчета неопределенности, от 
традиционной теории вероятностей до сугубо субъективных 
оценок. 

Простая экспертная система, основанная на правилах, 
могла бы предоставить вам базу знаний в виде дерева реше¬ 
ний, иерархию отношений "если - то", выводящих вас из любой 
точки лабиринта корабля к шахте лифта и вверх или вниз па 
необходимое количество этажей к выходу. 

Если бы вы имели возможность запустить такую экс¬ 
пертную систему на компьютере, диалог мог бы выглядеть 
примерно так: 

Какова цель консультации? 

Определить путь к выходу. 

Какого цвета стены в помещении? 

1. серые 

2. зеленые 

3. черные 

2 

Какого цвета стены в коридоре? 

1. серые 

2. зеленые 

2 
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Какой свет проходит через иллюминатор? 

1. прямой солнечный 

2. непрямой солнечный 

3. нет иллюминатора 
3 

Я рекомендую выйти за дверь и поверну ть направо. 
Пройдите примерно 48 шагов и поверните еще раз 
направо на 90°. 

Когда вы дойдете до лифта, поднимитесь 

на один этаж и вылезайте через вентиляционный 

люк. 

Подобно плану выхода из корабля, экспертная система 
"прокладывает” путь, используя причинно-следственные 
отношения для построения заключений па основе фактов и 
событий. Оценивая прошлое, она делает выводы относи¬ 
тельно будущего. 



ВВЕДЕНИЕ 


Когда специалист по интеграции сис тем фирмы Digital 
Equipment Corporation приступает к выбору конфигурации ком¬ 
пьютерной системы ѴАХ-11 для конкретного пользователя, 
то первое, что он делает - это готовит себе кофе. Потом 
звонит своему эксперту по конфигурации и пока он пьет кофе, 
советчик оценивает спецификации пользователя, определяет 
оптимальный набор компонент и строит точную рабочую 
схему интеграции системы. Этот эксперт по интеграции 
никогда не видел настоящих составляющих ѴАХ-11 и никогда 
не был в помещениях, где производится установка компью¬ 
терного оборудования. Этот эксперт - XCON - программа, 
разработанная объединенной группой специалистов фирмы 
DEC и ученых университета Карнеги-Меллопа для опре¬ 
деления конфигурации сложных компьютерных систем. 

Сталкиваясь с загадочным набором симптомов, 
который указывает на заболевание сердечного клапана, 
практикующий врач из Огайо обращается за частной консуль¬ 
тацией к своему весьма уважаемому коллеге. Детально рас¬ 
смотрев историю болезни пациента, симп томы заболевания и 
результаты лабораторных исследований, последний быстро 
ставит наиболее вероятный диагноз: недостаточность 
трехстворчатого клапана. Как ни странно, этот выдающийся 
коллега никогда не получал диплома о медицинском образо¬ 
вании и не провел ни единой минуты у пос тели больного. Этот 
коллега - компьютерная экспер'шая система, специализиру¬ 
ющаяся на медицинских диагнозах. 

Благодаря своему персональному компьютеру, 
метеоролог из Национальной Службы погоды предупреждает 
о возможном наводнении в Аризоне. В течение нескольких 
минут он с восхищением наблюдает, как экспертная система 
планирует прогноз и формирует комплекс предупредительных 
мероприятий. 

Специалист по бурению скважин на юге Франции, 
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конструктор электронного оборудования в Японии, логопед в 
Юте - всех их объединяет знакомство с этими профессио¬ 
налами, которые могут быть советчиками, конструкторами, 
диагностами. Это исполнительные помощники при принятии 
решений, наставники, исследователи. Они приходят к своим 
выводам на основе наблюдений, сделанных человеком, они 
"рассуждают" об окружающем мире в терминах, придуманных 
человеком, и используют человеческую логику для решения 
проблем, относящихся к человеку. Но эти знакомые - 
компьютерные экспертные системы, являются чем угодно, 
тояысо не человеком. 

Однако подобно эксперту-человеку экспертная сис тема 
решает проблемы, которые подчас определены лишь в общих 
чертах. Она "рассуждает" о проблеме, используя логические 
взаимосвязи аналогично тому, как это делае т человек. Обыч¬ 
но такой процесс включает в себя: (1) определение, (2) ис¬ 
следование, (3) принятие гипотез, (4) решение и (5) общение. 

Определение требует анализа проблемы в плане 
причинно-следственных отношений, а не просто в связи с со¬ 
путствующими ей эмпирическими событиями. Характерной 
чертой экспертной системы является то, что она всегда "пред¬ 
видит" дальнейшие события. 

Исследование заключается в получении ответов на 
вопросы о конкретных деталях каждого события, его 
характеристиках, связях и соотношениях. Часто экспертная 
система "объясняет" метод своих рассуждений. 

Принятие гипотез связано с формированием пробных 
предположений и проверкой их достоверности с помощью ал¬ 
горитмов, основывающихся на имеющейся информации и ана¬ 
лизе возможных результатов. Некоторые экспертные системы 
формируют параллельные гипотезы, используя их конкурен¬ 
цию для получения оптимального решения. 

Решения - это соответствующим образом сформулиро¬ 
ванные рекомендации к действиям, направленным на дости¬ 
жение конкретных целей. Экспертные системы не просто пред¬ 
ставляют алгоритмы, они предлагают конкретный совет. 

^ Общение предполагает распознавание информации, 
получаемой от человека в произвольной форме, и 
представление рекомендаций в понятном и пригодном к 
практическому использованию виде. Экспертная система 
"разговаривает” на естественном языке, а не на языке 
операционной системы компьютера. 
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Нетрудно видеть, что для создания экспертной систе¬ 
мы нужны специалисты из нескольких различных областей: 
прежде всег о, эксперт в предложенной предметной области; во- 
вторых, инженер по знаниям, который может разложить про¬ 
цесс проведения экспертизы на символьные и логические со¬ 
ставляющие; и, в-третьих, программист для создания рабочей 
среды. На практике, для разработки технологии часто собира¬ 
ются большие коллективы специалистов в каждом из направ¬ 
лений. 

Кроме того, очевидно, что создание экспертных сис тем 
в принципе отличается от написания компьютерных прог¬ 
рамм других типов. Давайте на минутку вернемся к экспертной 
системе, которую мы сконструировали в прологе. Хотя предло¬ 
женная там ситуация довольно тривиальна, она хорошо иллю¬ 
стрирует основные отличия экспертных систем от обычных 
программ обработки данных. Отметим следующие основные 
моменты. 

Во-первых, традиционные компьютерные программы 
детерминированы; при решении любой поставленной задачи 
они используют одну и ту же последовательность операций. 
Экспертная система строит собственное дерево решений для 
достижения каждой новой цели. 

Во-вторых, в отличие от традиционной программы, ко¬ 
торая строится главным образом из линейных отношений, 
экспертная система обрабатывает произвольные символьные 
выражения (например, концептуальные, временные и прост¬ 
ранственные отношения). Цель обычной компьютерной 
программы - расчет числовых значений, накопление констан т 
и извлечение данных из памяти. Цель экспертной системы 
состоит в выдаче рекомендаций, основанных на предсказы¬ 
ваемом поведении наблюдаемых объектов и течении собы тий. 
Кроме того, традиционные программы имеют дело с 
общепризнанными фактами: например, никто не станет 
обсуждать значение логарифма или произведения 10 на 10. В 
противоположность этому экспертная система заостряет вни¬ 
мание на эмпирических ассоциациях, которые описывают 
общие понятия и события. Такая информационная база 
образуется путем обработки знаний, накопленных экспертами- 
людьми в конкретной области. В этом отношении 
специализированная экспертиза более жизненна, чем точные 
науки. 

В-третьих, сконцен трированная экспертиза выражается 
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в виде наборов описательных атрибутов и неожиданных вза¬ 
имосвязей. Поэтому если традиционная компьютерная прог¬ 
рамма следует определенным математическим правилам, то 
работа экспертной системы строится на обработке символь¬ 
ных выражений, основанной на эвристических рассуждениях. 

Вследствие субъективного характера базы знаний, уве¬ 
ренность в некотором факте или правиле может быть не абсо¬ 
лютной. Вот почему экспертные системы часто основаны на 
выражениях относительной уверенности. Рассмотрим, 
например, такое предложение: "Если животное - птица, то оно 
умеет летать". Здесь уверенность основана на следующем 
факте: "Птица умеет летать". А если эта птица - индейка, 
страус или, скажем, пингвин? 

Эксперт по птицам мог бы придать этому правилу 
некоторый коэффициент уверенности; допустим, что ему 
кажется весьма правдоподобным, что если животное - п тица, 
то оно умеет летать. В этом случае правило может быть 
записано в следующем виде: 

если 

животное =птица, 

то 

умеет =летать, ку=90 

Целая величина ку в данном выражении обозначает ко¬ 
эффициент уверенности, равный 90. 

Нетрудно заметить, что определение уверенности экс¬ 
пертом является весьма существенным в таких у тверждениях, 
как: "Если боль в груди отдает в левую руку, то у больного ин¬ 
фаркт миокарда" или "Если цена перепродажи заранее оговоре¬ 
на в контракте, то поставщик неверно устанавливает цену”. 

Экспертная система имитирует рассуждения человека, 
выдавая предполагаемые решения определенной проблемы, а 
затем выделяя наиболее подходящее из них. Это позволяет 
ей с самого начала отбросить бесполезные решения. Более 
того, она использует составную структуру независимо 
приобретенных субъективных знаний, применяя разра¬ 
ботанную человеком систему проведения экспертизы к 
решению жизненных проблем. Благодаря системному анализу 
проблемы с различных точек зрения, она выдает нс просто 
подходящее, а наилучшее решение. 




РАЗДЕЛ 1 

ЭКСПЕРТНЫЕ СИСТЕМЫ В ПЕРСПЕКТИВЕ 

ГЛАВА 1 

Искусственный интеллект и 
экспертные системы 

Хотя мы часто считаем экспертные системы ноной 
технологией, концепции их построения стары, как рол челове¬ 
ческий. Ученые древности попытались систематизировать все 
накопленные человечеством знания, а затем начался 30 000- 
летний поиск разрешения загадки познания. Еще за 700 лет 
до п.э. ученые Вавилонии разработали сложную совокупность 
правил вила "если - то", описывающих эмпирические взаимо¬ 
связи между наблюдаемыми явлениями повседневной жизни. 
Многие из них представляли собой ранние попытки 
разработать систему медицинской диагностики. Например, 
одно из правил гласило: 

Если человек холоден и горяч 

одновременно... он умрет неожиданно. 

Субъективность эмпиризма была излюбленной темой 
Декар та, который верил, что эмпирическое знание может бы ть 
выведено с той же степенью определеннос ти, что и математи¬ 
ческие теоремы. Его методологический скептицизм, отбрасы¬ 
вание гипотез посредством последовательной проверки, соста¬ 
вляет парадигму системы исследования, используемой совре¬ 
менными экспертными системами. 

Однако наибольшее влияние на современных програм¬ 
мистов экспертных систем оказал Джон Дэйви. Он рассматри¬ 
вал логику не как академическое упражнение, а как конкретный 
метол исследования, применимый к жизненным проблемам. 
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Аэйви писал: "Процесс получения представления о том, что от¬ 
сутствует на основе того, чем мы владеем есть вывод. 
Каждый вывод, именно потому что он выхолит за рамки уста¬ 
новленных и известных фактов, которые получены либо из 
наблюдений, либо из собранных ранее знаний, влечет за собой 
скачок от известного к неизвестному". Далее Аэйви подчерки¬ 
вал необходимость подтверждения вывода и проведения раз¬ 
личий между эмпирическими и предсказанными причинно- 
следственными связями. "Весьма существенно,-утверждает 
он, - чтобы каждый вывод был проверенным выводом". 

Этими тремя предложениями он, по существу, описал 
современную, основанную на правилах экспертную систему. 

Хотя машины, имитирующие рассуждения человека, от¬ 
носительно новы, этого нельзя сказать о самой идее 
создания механического устройства, выносящего суждения, 
подобные суждениям человека. В конце 30-х годов, когда 
инженеры начали разрабатывать планы первых электронных 
"думающих машин", встал вопрос о том, должно ли такое 
устройство "считать" или "рассуждать". Британский ученый 
Алан Тьюринг утверждал, что такая машина должна не просто 
обрабатывать числовые величины, а моделировать процесс 
рассуждения. Однако в то время военные применения были 
более насущными и идеи Тьюринга остались без внимания. 

Спустя 10 лет, когда паление цен на средства 
вычислительной техники сделало их более широкодоступны¬ 
ми, различные исследовательские группы как в академичес¬ 
кой, так и в коммерческой областях вновь стали проявлять 
интерес к гипотезам Тьюринга. В 1956 г. логики Массачу¬ 
сетского Технологического института и Стэнфордского 
университета, философствующие о методах механического 
повторения процесса познания, предложили термин 
"искусственный интеллект" (ИИ). Но до 60-х голов идея 
создания машины, которая может "рассуждать", оставалась 
чисто теоретической. 

Важная основополагающая концеп туальная работа бы¬ 
ла выполнена Алланом Ньюэллом и Гербертом Саймоном 
(университет Карнеги-Меллона), которые предложили схему 
процессов, лежащих в основе решения проблем человеком. 
Предложенная ими программа называлась универсальным ре¬ 
шателем задач (GPS - General Problem Solving), и была первой 
ИИ, использующей нечто напоминающее правила. Наиболее 
ранней попыткой разработки практического применения была, 


20 



по-видимому, DENDRAL - программа расшифровки масс-спект¬ 
рограмм, созданная в Станфорлском университете в середине 
60-х годов для выделения органических соединений. К копну 
десятилетия ряд коллективов-разработчиков из частного 
сектора начал выпускать автоматизированные системы, 
основанные на символьной обработке и предназначенные для 
замены спениалистов-людей. Применяя большие базы накоп¬ 
ленных знаний и общение на языке, близком к естественному, 
эти компьютерные программы-советчики продемонстрировали 
широкие возможности символьной обработки, построенной на 
правилах. Кроме того, их развитие заложило хорошую основу 
для исследований в области природы обучения и архи тектуры 
познания, знаний, необходимых для создания машинных сис¬ 
тем логического вывода. В 1971 г. компания AML International, 
специализирующаяся на автоматизации медицинского 
оборудования, выпустила первую компьютерную медицинскую 
диагностическую систему. Эта программа не только содержала 
обширную базу знаний в области медицинской экспертизы, по 
и непосредственно взаимодействовала с диагностическим 
оборудованием, таким, как измерители спирометрии, кровяно¬ 
го давления и оптометрических характеристик. 

Но более известный предшественник современных, 
основанных на правилах, экспертных систем был создан в 1974 
г. Стэнфордской группой ННР (Heuristic Programming Project). 
Это - программа MYCIN, при составлении которой 
использовались многие из теоретических академических 
разработок в таких областях как символьная математика, 
машинная эвристика и инженерия знаний. Проект включал 
две задачи: систематизированный диагноз бактериальных 
инфекций и рекомендации по курсу эффективной терапии. 
Ядро MYCIN составляли: исчерпывающая база знаний, 
простой, основанный на правилах механизм обработки, и 
символьная математика. Другими словами, она представляла 
собой работающую модель фактически всех используемых в 
настоящее время экспертных систем и предшественницу всех 
своих последующих конструктивных аналогов. Возможности 
MYCIN несколько ограничивались тем, что она полностью 
зависела от ввода клинических проявлений оператором и была 
неспособна пополнять свою базу данных путем статисти¬ 
ческого обобщения новых результатов. Несмотря на свои 
недостатки этот эксперимент получил широкое признание, как 
важная веха в исследованиях ИИ, и в литературе по 
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экспертным системам его описание занимает значительное 
место. 

В 80-х голах исследования ИИ стали почти синонимом 
исследований в области военной технологии, более известных 
как программа расширенных исследований в области обороны 
(DARPA). Одним из результатов таких исследований было 
появление облегченного алюминиевого танка-робота, 
способного распознавать рельеф местности, самостоятельно 
маневрировать и стрелять без управления по заданным 
целям. Характеристики танка в приближенных к боевым 
условиях оказались довольно скромными, по сам факт, что он 
смог без человеческого вмешательства выполнить свою 
ограниченную задачу, свидетельствует о значительном 
продвижении в практическом применении теории ИИ. 

В 1982 г. Министерство внешней торговли и про¬ 
мышленности Японии усилило интерес к исследованиям в 
области ИИ, объявив о проекте создания ЭВМ пятого поко¬ 
ления. При разработке четырех первых поколений компью¬ 
теров использовалась исключительно архитектура срои 
Неймана, традиционная конструкция компьютеров, 
включающая в себя арифметико-логическое устройство и 
несколько перезагружаемых регистров. В противоположность 
этому цель японской группы заключалась в создании пятого 
поколения компьютеров, познавательные способности 
которых будут неотличимы от человеческих. Основное 
внимание в проекте уделялось экспертным системам, прог¬ 
раммам естественного языка, распознавания голоса и изобра¬ 
жений, робототехнике и суперкомпьютерам. 

В этом исследования экспертных систем расходятся с 
целями проектов ИИ. Энтузиасты ИИ часто рассуждаю! об 
автономных машинных сущностях, которые будут взаимодей¬ 
ствовать с человеческим познанием, по не основываться на 
нем. В противоположность этому экспертные системы всецело 
зависит от человеческой экспертизы. Хорошо разработанная 
экспертная система способна выводить суждения с такой же 
(или почти с такой же) точностью, как и эксперт-человек 
именно потому, что ее знания основаны па человеческом 
опыте. Эффективность такой системы фактически определя¬ 
ется базой знаний, созданной человеком. 

Полезность экспертных систем была продемон¬ 
стрирована в ряде приложений, включая минералогию, 
интеграцию компьютерных систем и военные 
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интеллектуальные системы. Олпа из таких программ - 
Prospector - представляет уникальный "сплав" академической 
науки, общественных служб, правительства и личной 
инициативы. Предназначенная для управления гео¬ 
логическими исследованиями месторождений минералов, эта 
система была разработана в международном центре SRI Inter¬ 
national под эгидой Национального научно-исследовательского 
центра Геологического управления США. Опа прекрасно заре¬ 
комендовала себя на испытаниях, но никогда не применялась 
на коммерческом уровне. Однако заложенные в ней концепции 
позднее были использованы в проекте Drilling Adviser - мини- і 
компьютерной экспертной системы, помогающей разрешать 
проблемы, возникающие при полевом бурении нефтяных 
скважин. 

В течение почти десяти лет эта мощная технология не 
выходила за рамки стен университетских и военных лаборато¬ 
рий. В настоящее время интерес к практическим экспертным 
системам, питаемый значительными финансовыми инвести¬ 
циями из частного сектора, достиг максимума. В результате 
колоссально возросло число программных продуктов, предназ¬ 
наченных для создания систем, основанных на знаниях, с 
диапазоном применений от дегустации вин до оценки 
служащих. Однако лишь малая часть этих программ, по- 
видимому, оставит след в истории экспертных систем. 
Стоимость этих инструментов составляет от нескольких сот 
до нескольких тысяч долларов. Кроме того, они имеют ряд 
общих характеристик. Все они основываю тся на базах знаний, 
полученных из опыта экспертов, используют символьные 
выражения фактов и соответствующих атрибутов, снабжены 
эвристической машиной вывода (а большинство работают с 
недоопределенными знаниями), решают проблемы, опираясь 
на человеческий опыт. 



ГЛАВА 2 


Элементы экспертных систем 


Все экспертные системы включают в себя по крайней 
мере три основных элемента: базу знаний, машину вывода и 
интерфейс пользователя. База знаний содержит информацию о 
том, что известно о данном предмете в настоящий момент. 
Машина вывода обеспечивает применение того, что известно к 
тому, что еще не известно. Интерфейс пользователя способст¬ 
вует взаимодействию между системой и пользователем. Взя¬ 
тая как целое, экспертная система моделирует знания экспер¬ 
та и умение их применять. 

Общее представление о функционировании экспертной 
системы дает рис. 2.1 . Группа экспертов или иной источник 
экспертизы обеспечивает загрузку в базу знаний фактов, на¬ 
блюдений и способов анализа ситуаций. Пользователь запра¬ 
шивает систему о конкретных проблемах через интерфейс, ко¬ 
торый допускает общение с использованием не технических, а 
обычных выражений. В мощных интеллектуальных системах 
существует интерфейс на естественном языке, который позволя¬ 
ет задавать вопросы и получать ответы на обычном английс¬ 
ком или русском языках. В менее мощных системах пользова¬ 
телю предоставляется не столь изысканный, но тем не менее 
"дружественный" интерфейс. Информация, содержащаяся в 
базе знаний, обрабатывается с помощью машины вывода, 
которая использует эмпирические ассоциации - или правила 
"если-то" - для формирования и проверки возможных решений. 
Интерфейс пользователя в доступной форме передает 
полученные результаты оператору. 
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Рис. 2.1. Элементы экспертной системы 


База знаний 

База знаний содержит известные факты, выраженные 
в виде объектов, атрибутов и условий. Помимо описательных 
представлений о действительности, она включает выражения 
неопределенности - ограничения на достоверность факта. 

В этом отношении она отличается от традиционной ба¬ 
зы данных вследствие своего символьного, а не числового 
или буквенного содержания. При обработке информации базы 
данных, пользуются заранее определенными логическими 
правилами. Соответственно, база знаний, представляющая 
более высокий уровень абстракции, имеет дело с классалш 
объектов, а не с самими объектами. 

База знаний создается людьми - консультантами, ав¬ 
торами учебников, исследователями - либо самими экспертами, 
либо на основе их работ. В поисках источника для наполнения 
базы знаний жизненный опыт важнее, чем высокий интел¬ 
лект. Эксперт, который исходит из продолжительных наблю¬ 
дений за событиями в некоторой конкретной области, скорее 
всего, создаст более полезную базу знаний, чем гениальный 
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анали тик, который больше полагается на ин туитивное проник¬ 
новение в сущность явлений. Предположим, например, что вы 
строите экспертную систему выбора компьютера для различ¬ 
ных применений. Блестящий инженер-конструктор, отлично 
владеющий методами разработки интерфейсов, па прак тике 
будет менее полезен, чем консультант по применениям, кото¬ 
рый наблюдал большое количество установленных систем, 
выполняющих предназначенные для них задачи. 


Машина вывода 


Главным в экспертной системе является механизм, 
осуществляющий поиск в базе знаний но правилам 
рациональной логики для получения решений. Эта машина 
вывода приводится в действие при получении запроса 
пользователя и выполняет следующие задачи: 

сравнивает информацию, содержащуюся в запросе 
пользователя, с информацией базы знаний; 

ищет определенные цели или причинные связи; 
оценивает относительную определенность фактов, 
основываясь на соответствующих коэффициентах доверия, 
связаных с каждым фактом. 

Как следует из ее названия, машина вывода предна¬ 
значена для построения заключений. Ее дейс твие аналогично 
рассуждениям эксиерта-человека, который оценивает проблему 
и предлагает гипотетические решения. В поиске целей на осно¬ 
ве предложенных правил, машина вывода обращается к базе 
знаний до тех пор пока не найдет вероятный путь к получе¬ 
нию приемлемого результата. Например, программа медицин¬ 
ской диагностики сначала пытается выдели ть специфический 
болезнетворный организм, анализируя список на первый 
взгляд не связанных симптомов, а затем определяет курс 
эффективной терапии. Другой пример - программа оптимиза¬ 
ции прибылей. Она оценивает различные воздействия на 
поток платежей для определения последовательности 
действий, которые способствуют увеличению поступлений при 
уменьшении затрат и налогов. 
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Интерфейс пользователя 


Задача интерфейса пользователя состоит в организа¬ 
ции обмена информацией между оператором и машиной выво¬ 
да. Интерфейс с использованием естественного языка создает 
видимость произвольной беседы, применяя повседневные 
выражения в правильно построенных предложениях. 
Очевидно, что чем более естествен такой интерфейс, гем 
выше требования к внешней и оперативной памяти. 
Следовательно, системы, предоставляющие пользователю 
максимум удобств, расходуют больше ресурсов основной 
машины, доступных с удаленных рабочих станций. Инстру¬ 
ментальные средства, предназначенные для работы на 
персональных компьютерах, имеющих ограниченные возмож¬ 
ности, неизбежно приносят ''дружественность” в жертву 
эффективности. 

Интерфейс прямого ввода должен уметь распознавать 
язык, или, по крайней мере, достаточное количество 
ключевых слов и фраз, чтобы улавливать их связь с рас¬ 
сматриваемой проблемой и ее предполагаемыми решениями. 

Допустим, что вы - владелец шикарного французского 
ресторана и хотите создать у себя превосходный винный 
погреб. Для того чтобы узнать, какие вина и в каком 
количестве вам закупать, вы решили проконсультироваться с 
экспертной системой. Ваша консультация могла бы 
выглядеть примерно так: 

Какую из ведущих винодельческих провинций вы 

предпочитаете? 

Бургундию. 

Сколько в среднем бутылок вина этого типа вы 

приобретаете в месяц? 

60 

Через сколько месяцев ваши запасы истощаются и 

вы повторяете закупку? 

6 месяцев 

В этом примере, интерфейс должен понять 
слово "Бургундия" и знать относительное 
значение каждой введенной числовой величины. 
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Система непрямого ввода менее специфич¬ 
на, но улучшает эффективное!ь интерфейса. 

Вот как тот же самый сценарий мог бы вы¬ 
глядеть при интерфейсе непрямого ввода: 

Какую из ведущих винодельческих провинций вы 
предпочитаете? 

1. Бургундия 

2. Бордо 

1 

Сколько в среднем бутылок вина этого типа вы 
приобретаете в месяц? 

1. меньше 20 

2. между 20 и 40 

3. между 40 и 60 

4. свыше 60 
3 

Через сколько месяцев ваши запасы истощаю гея и 
вы повторяете закупку? 

1. 3 месяца или меньше 

2. между 3 и 6 месяцами 

3. между 6 и 12 месяцами 

4. свыше 12 месяцев 
3 


Более люшцые экспертные системы объясняют, 
почему задан тот или иной вопрос и как 
был сделан соответствующий вывод. Эти объяснения 
получаются на основе эврисшческих правил, с 
помощью которых происходит управление 
взаимодейст виелі машины вывода с базой знаний. 

В нашем примере эксперт по винам мог бы 
объяснить свои вопросы следующим образом: 

Какую из ведущих винодельческих провинций вы 
предпочитаете? 

почему 

Ваш ответ на этот вопрос поможет мне определить, 
применимы ли следующие правила: 
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если провинция =Бордо, 
то покупайте у агента; 
если провинция =Бургундия, 
то покупайте у оптовика; 


Это изречение основано на том факсе, что в 
Бургундии (винодельческой провинции Франции) 
виноградники разделяются по поколениям. В 
результате у одного агента можно приобрести вина 
различных сортов, в то врелія как в Бордо агенты 
обеспечивают покупателя вином одного сорта. 


Интерфейс пользователя подчас служит определяющей 
мерой достоинств экспертной системы, когда простота 
общения играет не меньшую роль, чем эффективность маши¬ 
ны вывода или полнота базы знаний. 


Человеческий аспект 


В работе с экспертными системами принимают участие 
как минимум три группы людей. Во-первых, администрация 
устанавливает предназначение экспертной системы, ограничи¬ 
вает предметную область, которую должна охватывать сис¬ 
тема, и точно определяет, какие выгоды организация сможет 
извлечь из ее применения. Во-вторых, специалист по сбору 
знаний (инженер-когнитолог) собирает информацию, необхо¬ 
димую для базы знаний, сравнивает соотве тствующие данные 
и эвристически организует информацию. В-третьих, потенци¬ 
альный пользователь указывает, как будете использоваться 
система, какого рода проблемы предстоит решать и каким 
образом будет осуществляться взаимодействие программы с 
оператором. И наконец, системе требуется эксперт (чаще группа 
экспертов) в установленной предметной области, для 
получения от него знаний, как в форме фактической информа¬ 
ции, так и относительно аналитических методов, которые 
применяются для решения проблем в этой области. 
Человеческий аспект экспертных систем представлен на рис. 
2 . 2 . 
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Рис. 2.2. Человеческий аспект экспертной системы 


Машинный аспект 

Компьютерную часть системы представляют компо¬ 
ненты программного обеспечения, которые обрабатывают 
полученную информацию о действительности, заложенную в 
символьном виде в базу знаний. Все экспертные системы 
имеют по крайней мере три таких компонента: базу знаний, 
машину вывода и интерфейс пользователя. 

В базу знаний поступают факты. Связь между 
фактами представлена эвристическими правилами 
выражениями декларативного знания об отношениях между 
объектами. Каждое такое правило имеет составляющую "если" 
(предпосылку) и компонент "то" (заключение), которые 
определяют прямую или обратную причинно-следственную 
связь. Рассмотрим следующее правило: "Если у пациента 
почечная инфекция, то у него наблюдается повышенная 
температура и боли в нижней части спины". Это выражение 
определяет прямую связь для предсказания результата. 
Следующее правило, наоборот, образует обратную цепочку для 
предположения о причине: "Если у пациента жар и он жалуется 
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на боли в нижней части спины, то можно предположить, что 
это почечная инфекция". 

Действительные утверждения только вероятны, 
другими словами, степень их определенности не всегда 
абсолютна. В отношении себя кто-то может со стопроцентной 
определенностью утверждать: "Мой любимый цвет - красный". 
Но в большинстве утверждений уровень доверия может бы ть 
более или менее условным: "Если у человека красное лицо, то 
он вне себя от бешенства". 

Следовательно, количественные коэффициенты опреде¬ 
ленности увеличивают точность рассуждения экспертных сис¬ 
тем. Такие выражения относительной уверенности часто осно¬ 
вываются на статистических, вероятностных, или просто 
субъективных предпосылках. Общепринятая схема состоит в 
том, чтобы варьировать уровень доверия от 0, представляю¬ 
щего минимальную степень определенности, до 100 - высшей 
степени. 



Рис, 2.3. Машинная часть экспертной системы 
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Машина вывода применяет логику, четкие рассуждения, 
установленные правилами, для проверки заключений и 
получения выводов. Через интерфейс пользователя эта 
система проводит свое исследование и поддерживает связь с 
человеком, который ею управляет. Рис. 2.3 суммирует 
машинную часть экспертной системы. 


Взаимодействие "человек - машина" 


Прежде чем приступить к рассмотрению этих компо¬ 
нентов в контексте программирования экспертных систем, 
выясним, как взаимодействуют человеческий и машинный 
аспекты в процессе создания базы знаний. 



ГЛАВА 3 


Планирование экспертной системы 

Наука создания экспертных систем, как и вообще ИИ, 
большей частью экспериментальна. Таковой се делает "скачок 
от известного к неизвестному". Каждую экспертную систему 
следует расслштрипатъ как эксперимент, требующий 
под тверждения па основе эмпирических результатов. 

Как и в любом эксперименте, возможность получения 
удовлетворительных результатов зависи т от определения це¬ 
лей и точности постановки задачи. 



Рис. 3.1. Три фазы разработки экспертной системы 

Кроме того, на разви тие экспертных сис тем оказываю т 
влияние три характерных фактора: 

1. Предме тная область. 

2. Экспер т. 

3. Пользовательская среда. 

Взаимодействие этих факторов на протяжении трех ос- 


2 Заказ № 852 
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полных фаз разработки проиллюстриропано на рис. 3.1. 
Процесс начинается с установления целей и определения 
специфической проблемы, которую предстоит решать 
экспертной системе. 


Постановка целей 


Любой эксперимент начинается с анализа целей про¬ 
екта. Разработчики должны знать природу проблем, которые 
им предстоит решать. Они должны иметь возможность 
описать задачу, последствия или результаты, ожидаемые от 
ее решения, и значение этих результатов для их организации. 
Короче говоря, они должны точно знать, какую пользу прине¬ 
сет применение данной экспертной системы. Это нужно для 
того, чтобы устранить неопределенность и облегчить разра¬ 
ботку специальных мер, способных увеличить достоверность 
результатов, расширить систему и сделать ее более опреде¬ 
ленной. Поставив правильные цели, планировщики программ 
получают хорошую возможность выбора точных задач и, 
следовательно, получения полезных решений. 

Цели системы можно разделить на три типа: конечные, 
промежуточные и вспомогательные. Конечная цель описывает, 
какое действие, исход или результат должны получаться как 
следствие консультации. Промежуточные цели системы под¬ 
разделяют общую проблему на подзадачи, описывая пробле 
мы, которые должны быть решены для достижения конечной 
цели. Вспомогательные цели помогают планировщикам опре¬ 
делить конкретные области экспертизы, требующиеся для ре¬ 
шения перечисленных задач. 

Каждая цель - это предполагаемый результат, ко торый 
может быть получен, если программа предлагает решения 
специфических проблем. Установление их в качестве отправ¬ 
ных точек нужно для того, чтобы дать разработчикам ясное 
представление, какие задания должна выполнять система и 
как она должна действовать при их выполнении. 

Подробно мы рассмотрим эти цели в гл. 13. 
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Определение задач 


Если цели определены, то типы проблем, ко торые пред¬ 
стоит решать и способ подхода программы к их решению 
становятся более очевидными. 

Кроме того, в этой фазе велика по требнос ть в ограни¬ 
чениях. Хотя база знаний должна быть летально исчерпы¬ 
вающей, но тем не менее ее следует ограничивать по фак там и 
правилам, требующимся для достижения поставленных це¬ 
лей. Например, возраст и вес больного с заболеванием сердца 
важны для назначения больничного режима, а цвет его глаз 
и острота слуха - нет. 

При разработке инструментария экспертной системы 
желательно предусмотреть ее реальную необходимость для 
организации. Стоят ли предполагаемые результаты, чтобы 
•тратить на них время, средства и усилия персонала? 
Например, вряд ли имеет смысл разрабатывать систему стои¬ 
мостью в 100000 $ для уменьшения числа работающих но най¬ 
му, если общие затраты на них составляют 10000 $ в гол. 
Короче говоря, увеличится ли доход организации, если стои¬ 
мость разработки экспертной сис темы вычесть из прибылей? 
Если ценность инструмента не превышает величины вложе¬ 
ний, то его разработка неоправдана. 


Сбор знаний 

Вторая фаза включает в себя сбор, структуризацию и 
перевод основного содержимого экспертизы, требующегося 
для решения поставленных задач. В этом процессе обычно 
участвуют как специалисты в предметной области, так и ип- 
женеры-когпитологи. Тип и число экспертов часто опреде¬ 
ляются сложностью проблемы: может ли один эксперт, кон¬ 
сультант или управляющий предоставить все необходимые 
знания? Или требуется группа экспертов? Небольшие базы 
знаний часто извлекаются из справочников или учебных 
пособий. Экспертные системы, создаваемые па персональных 
компьютерах, чаще всего ограничиваются небольшим кругом 
проблем, и базу знаний можно накопить самостоя тельно, вос¬ 
пользовавшись помощью небольшой группы специалистов, 
или прибегнув к помощи справочных пособий. Содержание 
такой базы знаний обуславливается определением проблемы. 


2* 
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Это значит, что база знаний мажет охватывать любую пред¬ 
метную область, которая описывается набором правил "если - то". 
Она может быть проста как набор инструкций лля выбора 
формы страхования жизни или точна, как правила по приме¬ 
нению полицейской дубинки. 


Выбор экспертов 


Вне зависимости от предметной области следующей 
задачей планировщиков является выбор экспертов. Главная 
проблема состоит в том, чтобы найти эксперта, обладающего 
знаниями, соответствующими выбранным целям и задачам. 
Так как в основе машины вывода лежит последовательное 
продвижение к конечной цели, то планировщик должен 
позаботиться о получении информации, приобретенной па 
основе глубокого опыта и многократных наблюдений. Для 
большинства экспертных систем опыт практиков полезнее 
теорий академиков. В системах экономического планирования, 
например, профессор экономики может высказать свой теоре¬ 
тический взгляд на определяющие факторы денежного 
оборота. Но такая экспертиза вряд ли заменит прак тический 
опыт эксперта, ежедневно наблюдающего за превратностями 
финансовой жизни корпораций. Аналогично знания 
фармацевта о химической динамике могут стать ценной 
составляющей медицинской рецептурной системы. Но эта 
информация не заменит опыта специалиста но внутренним 
болезням, накопленного путем наблюдений за реакцией 
пациентов на действие того или иного препарата. 

Знания, необходимые для решения организационных 
проблем, требуют соблюдения определенной пропорции между 
"внутренним" опытом и "внешней" экспертизой. При построе¬ 
нии больших систем знаний со значительным количеством 
предварительно определенных подзадач, часто имеет смысл 
сгруппировать информацию по нескольким уровням организа¬ 
ции, от рядового персонала до администрации. Другими 
словами, нужно проанализирова ть, как развивается проблема, 
какую выгоду получит организация от се решения, и кто 
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должен участвовать в решении данной проблемы. Допустим, 
что в инженерной исследовательской фирме вы возглавляете 
проект по созданию экспертной системы определения типа 
кинопленок, чтобы использовать ее при документировании 
различных тестовых процедур. Вы начинаете поиск знаний на 
самом нижнем уровне иерархии - в темной комнате техника, 
который "проливает свет” на характерные особенности обра¬ 
ботки разных типов пленок. Затем вы расспрашиваете 
кинооператора, который обладает богатым опытом по 
обращению с пленкой, ее зарядкой и съемки в различных 
условиях тестирования. На следующем уровне, от инженсров- 
разработчиков вы получите информацию, касающуюся 
технических требований типовых тестовых процедур. 
Заведующий отделом сбыта снабдит вас данными относи¬ 
тельно стоимости и спроса на пленки и наконец благодаря 
Справочнику кинематографиста вы узнаете о технических 
спецификациях и подходящих критериях. 

Может оказаться желательным проведение внешней 
экспертизы для пополнения базы подходящими знаниями с 
информацией, полученной от других фирм. Преимущество 
независимого консультанта - в разнообразии опыта, накоп¬ 
ленного различными организациями, следовательно, он обла¬ 
дает более глубоким пониманием предмета в области, непре¬ 
менно выходящей за рамки внутреннего опыта фирмы. В 
приведенном выше примере, внешний консультант мог бы 
дать дополнительные знания о новых пленках и технологиях, 
о которых сотрудники организации только читали в 
рекламных проспектах. 

В том случае, когда внутренняя экспертиза ограничена 
или неполна, внешний консультант становится главным 
источником информации. 

При построении небольших баз знаний с ограниченным 
кругом проблем, предпочтительнее один источник. Объедине¬ 
ние знаний разных экспертов подчас затруднительно, и их 
рекомендации могут быть даже противоречивыми. 

Выбирайте эксперта - энтузиаста; процесс извлечения 
знаний изнурителен. 


37 



Извлечение информации и разработка базы знаний 


Помимо поиска хорошего эксперта, группа разработчи¬ 
ков сталкивается с проблемой эффективного извлечения 
информации. После выбора эксперта просто извлечение зна¬ 
ний менее существенно, чем извлечение правильных знаний. 
Для ускорения процесса перевода накопленной информации в 
машинную базу знаний, разработчики часто делят свои вопро¬ 
сы на две отдельные категории: внешние и внутренние. 

Внешние вопросы устанавливают действительное содер¬ 
жимое базы знаний. Утверждения типа: "темпера тура" явля¬ 
ется признаком лихорадки и значение "температуры" может 
быть "102 градуса по Фаренгейту" являются примерами внеш¬ 
него знания. Внутренние вопросы, напротив, фокусируются на 
ходе событий - взаимосвязях между объектами, атрибу тами и 
значениями. У тверждение "Если темпера тура =102 градуса, то у 
пациен та лихорадка" представляет внутреннее знание. 

Передача знаний должна относиться к обеим формам 
его представления. В системе, основанной па правилах, мы за¬ 
лаем вопросы, относящиеся к внешнему знанию, для того, 
чтобы построить пары "объект - значение". Внутреннее знание 
извлекается для определения правил, которые управляют 
решением задачи в заданной предметной облас ти. 


Определение интерфейса пользователи 


Третья составляющая передачи знаний связана с поль¬ 
зователем. Уже на ранней стадии разработки необходимо 
знать, что будет вводить конечный пользова тель. Э то нужно 
для того, чтобы убедиться, будет ли система достаточно 
практична и обеспечит ли максимальную совместимость со 
средой, в которой ей предстоит работать. 

Участие пользователя выражается в следующем: 

38$ Конкретные задачи. Пользователь, сталкиваясь с 
конкретными проблемами, может объяснить возникновение 
проблем и предложить возможные варианты их решения. 

38$ Общение. Интерфейс пользователя должен 
соответствовать словарю пользователя и уровню его 
подготовки. 
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пользователя с 


Установление связей. Знакомство 
причинами и следствиями неоценимо в процессе определения 
взаимосвязей фактов в базе знаний. 

Образная связь. Отличительной особенностью 
хорошей экспертной системы является ее способность 
объяснять конечному пользова телю ход своих рассуждений. 


Пос троение экспертной сис темы 

После того как знания человека-эксперта благополучно 
перенесены в структурированную базу знаний, программист 
экспертной системы может приступать к работе. Наиболее 
прямой метол реализации выполнения правил - непосредст¬ 
венное включение их в текст программы. Болес гибкий подход 
состоит в том, чтобы создать пополняемую систему накопле¬ 
ния пар "объект - значение" и связи их с предложенными 
пользователем правилами. 

В последующих главах мы исследуем специальные ме¬ 
тоды представления знаний, посмотрим как выполня ть эври¬ 
стические правила и проверим справедливость наших утвер¬ 
ждений. Кроме того, мы рассмотрим компоненты машины 
ві анода и интерфейса пользователя, а затем попробуем эти 
разрозненные части свести воедино. Каждая глава содержит 
листинги написанных на Паскале программ основных модулей 
экспер тной системы. 



РАЗДЕЛ 2 

ПОСТРОЕНИЕ ЭКСПЕРТНОЙ СИСТЕМЫ 


ГЛАВА 4 

Представление фактов 


В этой главе мы начинаем летальное изучение эксперт¬ 
ной системы, основанной на правилах. Сначала обсудим формы 
представления фактов в базе знаний и определим констан ты, 
типы и переменные, использованные при разработке нашей 
экспертной системы. В следующих главах мы постепенно 
будем вводить программные модули и создадим иллюстра¬ 
тивную программу, а по мере построения будем изучать стра¬ 
тегию, лежащую в основе ее разработки. 

Язык Паскаль в нашем примере выбран не случайно. 
Во-первых, Паскаль - один из наиболее простых, а 
следоветельно, и наиболее универсальных языков программи¬ 
рования высокого уровня; программы, написанные на Паскале, 
легко читать. Во-вторых, он обеспечивает исключительно 
высокую степень переносимости (даже большую, чем версии 
языка Бейсик для персональных компьютеров), с минималь¬ 
ными изменениями в словаре или синтаксисе. В-третьих, его 
структурное сходство с мнемоническими псевдокодами делае т 
листинги программ на Паскале понятными практически 
любом" программисту. В-четвертых, благодаря таким срав¬ 
нительно недорогим программным продуктам как Турбо 
Паскаль, он доступен самым разным группам читателей. В 
большинстве версий Паскаля и компилятор, и выполняемый 
мол; \ь включаются в один экономичный пакет. 
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Обзор структуры 


Экспертная система объединяет три подсистемы: базу 
знаний, машину нывода и интерфейс пользова тели. База зна¬ 
ний состоит из фактов и правил. Факты базы знаний описы¬ 
вают то, что известно о предме тной облас ти в данный мо¬ 
мент. Правила у стана вливают ситуационные, концептуальные, 
причинные или прецедентные взаимосвязи между э тими фак¬ 
тами. 

Следовательно, экспертная система должна иметь 
механизм для введения фактов и правил в базу знаний, 
поддерживающий набор фактических выражений и 
показывающий содержимое для его периодического 
обновления системными инженерами и операторами. В этой и 
следующей главах мы разработаем механизмы для решения 
данных задач. 


Предс тавление фактов it базе знании 


Мы предс тавляем факты, определяя объекты, описывая 
их атрибуты и придавая им эквиваленты или значения. В 
экспертной системе пол словом "объект" подразумеваются как 
физические предметы (например, "термометр” или "конт¬ 
ракт"), так и общие предс тавления ( такие как "жар" или "цена"). 
С объек тами связываются а трибу ты, ко торые описываю т их с 
нашей (и экспертной системы) точки зрения. Атрибутами 
объекта "термометр" могу т быть: "чувс тви тельный к темпера¬ 
туре", "стеклянный" и "градуированный". Аналогично 
" темпера тура" является а трибу том объек та "жар", а "прибыль" - 
атрибутом "цены". Третья единица - значение - задает 
точность. Например, значение температуры может быть 102° 
по Фаренгейту, а значение прибыли - 50% . Ч тобы отлича ть 
такие фактические выражения от традиционных 
компьютерных данных, мы будем говорить о триплете 
"объект - атрибут - значение", как о декпаратинных данных. 
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Пары "объект-значение" 


Лли того ч тобы упорядочи ть выражения фактов, мож¬ 
но объединить их в пары "объект - значение”, соединив имя 
объекта с именем атрибута. Например, в триплете "термометр 
- температура - высокая" именем объекта буде т слово "термо¬ 
метр", его а трибутом - "температура", а его значением - слово 
"высокая". Представим его в виде пары, тогда объектом будет 
" термоме тр - темпера тура", а значением - "высокая". 

Преобразование выражений фактов в пары "объект - 
значение" иллюстрирует табл. 4.1. Прежде чем экспертная 
система сможет начать обрабатывать имеющуюся в ней 
информацию, выражения должны быть разложенія на 
отдельные "атомы". Рассмотрим, например, простое выра¬ 
жение: "Если температура высокая, то у пациента лихорадка". 
Данное правило подразумевает наличие следующих фактов- 
атомов: "У пациента температура", "Температура высокая" и "У 
пациента лихорадка". Пары "объект - значение" можно 
представить таким образом: "термометр-'температура =высо- 
кая" и "пациент-симптом =лихорадка". 


Таблица 4.1 

Представление фактов через парія "объект - значение" 


{Выражение 

Пары обі.скт - значение" 

]У пациента темпера тура 

пациент =имеет 

{Температура высокая 

темпера туру 

темпера тура =высокая 

|У пациента лихорадка 

пациент =имсет 

лихорадку 

{Цена минимальная 

цсна=минимальная 

ІЦена максимальная 

цена=максимальная 

ІЦена постоянная 

цена пос тоянная 

ІЦена установлена 

цена =ус тановлена 


В качестве более сложного примера рассмотрим фразу, 
используемую Верховным Судом США для обозначения непра¬ 
вильно установленной цены: "любая максимальная, мини¬ 
мальная, постоянная, или установленная цена". Здесь очевид- 
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пі, [ми парами "объект - значение" будут: "цена=максималыіая", 
"цсна=мипимальная", "п,ена=пос гоянная” и "цена=установлена". 


СПИСОК об'ЬСКТОН 


Для представления объектов в базе знаний использу¬ 
ется структура данных, называемая сцеплепньш списком. 
Каждая единица этого списка называе тся узлом и содержит 
поля, в которые заносится информация об объекте. Одно из 
полей служит указателем, сообщающим системе, где искать 
следующий сцепленный узел списка. Последний узел указы¬ 
вает на nil, это означает, ч то список узлов исчерпан. 

Кроме того, каждый узел в списке объектов имеет вто¬ 
рой указатель, который определяет начало списка значений, 
связанных с именем объекта. Этот внутренний список называ¬ 
ется списком значений объектов. 

На рис. 4.1 видно, каким образом каждый узел в 
сцепленном списке объектов указывает на следующий по 
порядку узел. 



Рис. 4.1. Схема сцепленного списка объектов 
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Список значений 


Табл. 4.2 иллюстрирует, как каждый узел поддерживает 
спой собственный список значений. При этом каждое предыду¬ 
щее значение указывает на последующее до тех пор, пока ве 
будет исчерпан весь список. 

Здесь отдельные узлы в списке объектов содержат 
объекты: "возраст", "профессии” и "подчиненный". Узел 
"возраст" имеет только одно значение. Список значений узла 
"профессии" содержи т три величины - "врач", "адвока т" и "ин¬ 
дейский вождь” (причудливый анахронизм, означающий "Член 
Сове та племени коренного населении Северной Америки"). 


Таблица 4.2 

Пример сцепленного списка "объект - значение" 


Список 

объектов 

Возраст 

Профессия 

Подчиненный 

Список 




значений 

32 

Врач 

Бетти 



Адвокат 

Джейн 



Индейский 




вождь 

Спот 


В табл. 4.3 показан аналогичный список дли клиничес¬ 
ких проявлений, используемых при диагностике сердечных 
приступов. Узел, содержащий ими объекта "боль", имеет 
список, состоящий из трех значений: "грудь, "живот" и "левая 
рука”. Пациен ты, страдающие сердечными приступами, часто 
испытывают боль в указанных час тях тела. Кроме того, врач 
расшифровывает электрокардиаграмму пациента (ЭКГ), пы та¬ 
ясь найти признаки ишемии или низкого содержания 
кислорода в крови. Узел списка объектов, содержащий имя 
"ЭКГ", имеет три связанных с ним значения: "нормально”, 
"поднятый ST" и "отрицательный ST". Когда часть ЭКГ, 
называемая "зубцом ST", отрицательна, то обычно пациент 
уже страдает ишемией. В списке объектов, выражение факта 
включает все возможности - нормальный зубец, поднятый и 
отрицательный. Аналогично узел, содержащий имя объекта 
"КФК" (один из трех анализов крови, используемых для 


44 









установлении диагноза), имеет три возможных значения: 
''нормальное", "повышенное” и "пониженное". 


Таблица 4.3 

Список "обьект - значение": диагнос тика инфаркта 


7 

Обі.скт 

боль 

ЭКГ 

КФК 

Значении 

грудь 

живот 

левая 

рука 

нормальный 
поднятый ST 
отрицатель¬ 
ный ST 

нормальное 

повышенное 

пониженное 


Третий вариант списка "обьект - значение" пред¬ 
ставлен в табл. 4.4. Здесь именами обьсктоВ служат кри терии, 
используемые юристами ври определении нарушений полити¬ 
ки установлении псп. Список значений каждого узла включа¬ 
ет несколько возможных выражений. 

Таблица 4.4 

Список "обьект - значение": определение нарушений 
установки цеп 


Обьект 

цена 

действие 

последствии 

Значении 

минимальная 

максимальная | 

постоянная 

законное 

незаконное 

никаких 

штраф 

расторжение 

контракта 


Определении 

Теперь мы знаем как создавать список сцепленных 
обьектов. На следующем шаге определим константы, тины и 
переменные, которые будем использовать в программе. 
Чи та телям, незнакомым с Паскалем, поясним, ч то определение 
констант означае т ввод имен констан т. Аналогично, при опре¬ 
делении типов вводится описательные имена, в отличие от 
числовых констант. Объявление переменных задаст переменные 
программы в соотве тствии с ранее определенными типами. 
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Например, чтобы ограничить длину строки лли записи 
имен нссх объектов и значений 40 символами, мы опишем 
коне іан гу WORD МАХ следующим образом: 

WORD МАХ =40; 

Таким же образом мы можем установить максималь¬ 
ную длину строки н 80 символов, определив константу: 

LINE_MAX=80; 

В модулях программы буду т использоваться следу¬ 
ющие константы: 

COLON 

PERK)D=7; 

СОММА =7; 

SPACE =’ 

EQUALS='=’; 

DEFINITE=’100’; 

Далее определим типы строк, к ко торым относится кон¬ 
станты. Сначала установим максимальную длину имени объек¬ 
та и значения. За тем ограничим длину вводимой строки: 

word_slring=string|WORD_MAX|; 

lineslring =slring| LIN EMAX]; 

Кроме того, нам нужно задать опрлелепия типа, необ¬ 
ходимые для создания и манипулирования списком обьектон. 
Для этого прежде всего создадим указатель объекта и 
указатель значения; они будут указывать па конкретную 
запись, содержащую ранее определенное значение или имя 
объекта. Паскаль использует для этой цели индексный 
указатель. Указатель с установленным типом Л Т ссылается на 
анонимную переменную типа Т, или на пустое значение nil 
(если значение отсутствует). В последующих определениях 
левая часть равенства будет представлять описание указа¬ 
теля, а правая часть - тип определяемой области. 

ѵаІие_рІг= л ѵа1ие; 

objectplr =~object; 
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Следующие определении типа создают запись, которая 
будет содержа ть имя значения до 40 символов длиной и свя¬ 
занный с ним указа тель. Ос тальная час ть а того описания не 
используется в первых модулях, которые мы создадим, но бу¬ 
дет полезна при разработке модулей, которые мы создадим 
позже. 


value =RECORD 

name:word_slring; 
cert:integcr; 
selby :word_slring; 
ncxt:value_plr 

END; 

Следующее определение типа также понадобится нам 
позднее. 

lcgal_plr= A value; 

lcgalvalue =RECORD 

name:word_slring; 

nextdegalptr 

END; 


Теперь создадим запись, которая буде т содержать имя 
объекта, длиной до 40 символов, указатель значения и указа¬ 
тель объек та. Указа тель значения - это поле, указывающее на 
имя значения в списке значений; указатель объекта - поле, 
указывающее на следующий узел is текущем списке объектов. 
Не все эти определения буду т применены немедленно, но со 
временем они пригодя тся. 

object = RECORD 

name:word_slring; 

question :word_slring; 

mullivaldtboolean; 

legal_lisl:legal_plr; 

soughlrboolean; 

value_list:valuc_ptr; 

ncxt:objcct_ptr 

END; 
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Остальные определения тина буду т использоваться по 
мере необходимости: 

premplr = л ргет; 
conptr = л соп; 
ги1е_рІг= л гиІе; 
prem =RECORD 

objcct:word_slring; 

valueiwordstring; 

ncxt:prem_ptr 

END; 

con=RECORD 

object:word_string; 

value:word_slring; 

cert:inlcger; 

nexlxonptr 

END; 

rule=RECORD 

namc:word_string; 

premipremplr; 

conxonptr; 

ncxt:rule_plr 

END; 

Ниже приведены определения переменных, которые по¬ 
надобятся нам в программе экспертной системы. Первые лее 
будут нужны в программе меню для выбора ввода! Осталь¬ 
ные - для управления объектами и значениями. 

VAR 

maxchoice, 

choicelim, 

choice:integer; 

lasttry, 

top_fact:object_ptr; 

sword, 

sobjcct, 

s_value;word_string; 

s_linc:line_string; 

s_cf:inleger; 

top_rule:rule_ptr; 

rules:Text; 

explain:boolcan; 
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Теперь мы определили константы, типы и переменные, 
необходимые для построения экспертной системы на Паскале. 
Полный листинг определений типон и глобальных перемен¬ 
ных приведен и приложении А. В следующей главе мы разра¬ 
ботаем модули программы, образующие блоки, из которых 
строи тся сис тема. 


ГЛАВА 5 

Управление фактами в базе знаний 

Экспертная система должна иметь механизм для ввода 
фактов и правил в базу знаний, поддержания набора выраже¬ 
ний в базе знаний и вывода содержимого базы знаний для 
просмо тра разрабо тчиками и пользователями системы. 

В э той главе мы рассмо трим требования программиро¬ 
вания к разработке и поддержанию списка сцепленных объек¬ 
тов. Прежде всего, нам нужен механизм для добавления к дан¬ 
ному списку новых узлов. Далее понадобятся средства ввода 
имен новых объектов и значений. И наконец, потребуется 
способ нахождения и извлечения конкретных имен для 
просмотра. Кроме того, будет полезно иметь возможность 
провери ть, имеет ли объект определенное значение и ис тинен 
ли о тдельный фак т. 

Для выполнении этих функций мы введем следующие 
модули: 

MAKENODE обеспечивает возможность добавления к 
списку нового объекта. 

FINDOBJECT ищет в списке объектов имя конкретного 
объекта. 

SPLIT извлекает из строки имя объекта и имя значе¬ 
ния. 

TEST проверяе т ис тиннос ть о тдельного факта. 

ADDOB.IECT позволяет добавля ть к базу знаний име¬ 
на объек та и значения. 
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SEE VALS выводит все элементы списка значений 
любого узла. 

SEE_OBJECTS выводит имена всех объектов базы 
знаний. 

Основная программа обеспечивает интерфейс пользо¬ 
вателя Ѵіри вводе и объединяет различные программные мо¬ 
дули при выполнении. В этой и каждой последующей главе мы 
будем постепенно строить основную программу для 
объединения новых модулей и добавления новых свойств к 
уже существующим модулям. В гл. 13 мы покажем более слож¬ 
ную перспективу законченной системы в действии. 


Создание узла в списке объектов 

Первым модулем программы экспертной сис темы явля¬ 
ется механизм для создания нового узла в списке сцепленных 
объектов. Следующая процедура добавляе т новый узел в вер¬ 
шину списка объектов и устанавливает указатель на объект, 
поименованный в этом узле. Первый оператор после инструк¬ 
ции BEGIN создает новый узел. Второй определяет вершину 
списка, а третий устанавливает указатель вершины на вновь 
созданный узел. На следующем шаге указатель вновь создан¬ 
ного узла устанавливается на вершину списка объектов. В 
конце процедуры по команде WITH выполняется инициали¬ 
зация всех полей новой записи. 

PROCEDURE makc_node(VAR curr_objccl:object_plr); 

VAR 

head:object_ptr; 

BEGIN 

new(currobject); 

head:=top_fact; 

top_fact:=curr_object; 

WITH curr object" DO 
BEGIN 
ncxt:=head; 
value_list:=NlL; 
questions”; 
lcgal_list:=NIL; 
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muUivald:=FALSE; 
sought: =FALSE; 
END 

END; 


Помещение имени объекта it сцепленный список 

Следующая задача - поместить ь список имя какого- 
либо заданного объекта. Модуль FINDOB.IECT ищет имя объ¬ 
екта н списке; если имя найдено, указатель устанавливается 
на его место п списке объектов. В противном случае, он уста¬ 
навливается на nil. 

В этой процедуре программа просматривает список 
объектов в поисках имени / object . Найдя его, Программа ус та¬ 
навливает указатель FINDOBJECT на него; в противном слу¬ 
чае, выдае тся значение nil. 

FUNCTION find_objccl(f_objecl:word_string):objccl_ptr; 

VAR 

curr_objecl:objecl_ptr; 

BEGIN 

IF (last tryoNlL) and (last_try~.name=f_objecl) 

THEN find_objecl:=last_try 

ELSE 

BEGIN 

curr_object:=iop_facl; 

lasl_lry:=NIL; 

find_object:=NlL; 

WHILE ((curr objcct<>N 1 L)AND(last lry =NIL)) DO 
BEGIN 

IF(curr_objecl~.name=f_objecl) THEN 
BEGIN 

f indobjecl: =curr_objecl; 
lasltry: =curr_objcct 
END; 

currobjecl:=curr_objecC.nexl 

END 

END 

END; 
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Расщепление пары "объект - значение’ 


Когда пыражение фак та кнолитси и нилс нары "объек с 

- значение”, система должна отличи ть имя объекта от имени 
значения. Следующий модуль, SPLIT, воздействует па выра- 
жснис мила ОБЪЕКТ=ЗНАЧЕНИЕ, изнлекая имена объек та и 
значения и выводя их в отдельные с троки. 

Процедура ищет во вводимой с троке позицию символа 
За тем имя объекта помещае тся в f objccl, а имя значения 

- в f value. 


PROCEDURE splil(f line:linc_string; 

VAR f object,f_val ue:word_string); 


VAR 

sljefl, 

st_right:inlcger; 

BEGIN 

st_righl:=pos( PERIOD,Mine); 

IF (slrighl =length(f line)) 

THEN f_line:=copy(f_line,l,sl_righl-l); 
st_lefl:= pos(EOUALS,Mine); 
st_right:=pos(COMMA,f_lme); 

IF ((sljefl =0) AND (sl righl =0» THEN 
f_object:=f line; 

IF (sl_righl=0) THEN sl_right:=lenglh(r line) + l; 

IF (st left >0) THEN 
BE(iIN 

f object: =copy(f line,1,si left-1); 

IF (pos(’)’,f object) =0) THEN 

f_valuc:= copy(fJine,slJeft+l,sl_riglil-st lefl-l) 
END; 

slrighl: =pos(’)’,f_objecl); 

IF(st_righl>0) THEN 

f_objecl:=copy(f_line,l,st_righl-l) 

END; 
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Пронерка объектов и значений 


Следующий модуль будет использоваться для провер¬ 
ки истинности пары "объект - значение" (наличия ее в базе 
знаний). Сначала программа устанавливает, содержится ли 
имя оговоренного объекта в списке объектом, а затем ищет 
имя значения. После оператора BEGIN подпрограмма вызы¬ 
вает модуль find object. 

FUNCTION tesl(r_objcct,f_value:word_string):valuc_ptr; 

VAR 

curr_objcct:objcct_plr; 

curr_valuc:value_plr; 

BEGIN 

curr_objccl:=find_object(f_objccl); 

lcsl:=NIL; 

IF (curr objcct<>NIL) THEN 
BEGIN 

curr_valuc:=curr_objccl A .vaIuc_lisl; 

WHILE (curr valucoNIL) DO 
BEGIN 

IF (curr_value /4 .namc =f_value) THEN 
lesl:=curr_value; 
curr_valuc:=curr_value / \next 
END 

END 

END; 


Аобавлснис объекта к списку 

Следующий модуль перелае т две с троки: имя объекта и 
имя значения. Эта процедура добавляет имя объекта к списку 
сцепленных объектов и вставляет имя значения в соотве тс т¬ 
вующий список значений узла объекта. 

На первом шаге проверяется наличие имени объек та в 
списке объектов. Если имя объекта не найдено, программа соз¬ 
даст новый узел и добавляет указанное имя объекта в верши¬ 
ну списка. На следующих шагах осущес твляе тся поиск в списке 
значений, и если имя значения в нем отсу тствует, оно добав¬ 
ляется в вершину списка. 
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PROCEDURE add_object(f_objecl,f_value:word_slring); 
VAR 

curr_object:objecl_plr; 

valuclist, 

head:value_ptr; 

BEGIN 

curr_objecl:=find_object(f_object); 

IF (currobject =NIL) THEN 

makenode(currobject); 
curr_objecl / \name:=f_object; 
cu rr_object / '.sough(: =TR U E; 
value_list:=test(f_objecl,f_value); 

IF(value_list =NIL) THEN 
BEGIN 

head:=curr_objcct'\valuc_list; 

new(valuclist); 

WITH value list" DO 
BEGIN 
next:=head; 
cert:=0; 
selby: =”; 
name:=f_valuc 
END; 

curr_object'\value_lisl:=value_list 

END 

END; 


Вмиол списка значений 

Экспертная система должна обладать возможностью 
нынода полного списка нссх значений и объектов базы зна¬ 
ний. Следующий модуль, SEEVALS, с помощью указателя 
объекта выводи т на экран дисплея все имена значений, содер¬ 
жащиеся в списке значений узла объекта. Сначала процедура 
находит указанный узел объекта, а затем перебирает имена в 
списке значений. По команде write программа выводит имя 
текущего значения на экран, а за тем обращае тся к указа телю 
(pl^.next) для определения следующего элемента. Ког да ус та¬ 
навливается значение nil, вывод прекращае тся. 
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PROCEDURE see_vals(curr_objecl:objcct_ptr;cf_on:booIcan); 
VAR 

curr_valuc:valuc_ptr; 

danleger; 

BEGIN 

curr_valuc:=curr_ohjccl / \valuc_list; 
wntc(curr_objccl'\ name, EQUALS); 
lF(curr_value=NIL) THEN wrile(’Hc оирслслсію’); 

WHILE (currvalueoNIL) DO 
BEGIN 

wrile(curr_value'\namc); 

IF(cf_on =TRUE) THEN 
BEGIN 

cf:=curr_valuc / \ccrl; 
writef, on=’,cf) 

END; 

curr_value:=curr._valuc / \nexl; 

IF(curr valucoNIL) THEN writc(V) 

END; 

writcln 

END; 


Выпол фак тон балы знаний 

Следующий модуль, SEEOBJECTS, будет использова¬ 
ться для нынола па экран имен всех объек тов и имен значе¬ 
ний введенных на данный момент в базу знаний. После опера¬ 
тора BEGIN, процедура печатает заголовок: "ФАКТЫ БАЗЫ 
ЗНАНИЙ", затем сортирует имена объектов в списке объектов, 
выводя все имена и соответствующие им значения до тех пор, 
пока не будет достигнут коней списка (nil). 

PROCEDURE scc_objects(cf_on:boolcan); 

VAR 

curr_object:object_ptr; 

BEGIN 

writeln; 

ѵѵтііе1п(’ФАКТЫ БАЗЫ ЗНАНИЙ’); 
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wrilcln; 

curr_objcct:=lop_facl; 
WHlLE(currobjectoNIL) DO 
BEGIN 

see_vals(curr_object,cf_on); 
currobject: =curr_object / '.ncxt 
END; 

wrileln; 

writeln(’(KOHEH БАЗЫ ЗНАНИЙ)’) 
END; 


Интерфейс пользователи 

Последним н этой главе мы введем модуль основной 
программы, объединяющий предшествующие блоки с помо¬ 
щью интерфейса пользователя. Эта процедура позволяет опе¬ 
ратору добавлять, проверять и выводи ть на экран выражения 
фактов базы знаний, используя пары "объект - значение". 
Когда опера тор выбирает возможность "Добавление фактов в 
базу знаний", программа вызывает модуль addobjecl. Если 
выбирается возможность 2 - "Проверка истинности фак тов", 
программа сравнивает вводимую пару "объект - значение" с 
имеющимися в базе знаний. Если же пользователь нажмет 
клавишу 3 - "Просмотр базы знаний", то программа вызывает 
модуль see objects для вывода на экран полного списка имен 
объек тов и связанных с ними списков значений. 

Рис. 5.1 иллюстрирует связи между основной програм¬ 
мой и модулями, введенными в этой главе. 
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BEGIN 

max_choicc:=3; 

choice_lim:=max_choice+l; 

last_lry:=NIL; 

top_fact:=NIL; 

choice: =0; 

WHILE (choiceochoice lim) DO 
ВЕС’, IN 
writeln; 

wrileln(’1. Добавление факта в базу знаний’); 
writcln(’2. Проверка ис тинности факта’); 
wrilcln(’3. Просмо тр фактов базы знаний'); 
writcln(choicc_iim,’. Выхол’); 
wrileln; 

шгііе(’Ввсли те номер от 1 ло ’,max_choicc,’ и нажми те 
ENTER:’); 
readln(choice); 
wrileln; 
writeln; 

IF (choice>0) AND (choice<=choice_lim) THEN 
BEGIN 

CASE choice OF 
1: 

BEGIN 

wrilelnfKaKon фак т нм хотите добавить в 
базу знаний ?’); 
writcln(’( Введите: 

(ОБЪЕКТ) =(ЗН А ПЕНИЕ))’); 
readln(slinc); 
splil(s_linc,s_objccl,s_value); 
add_objccl(s_objcct,s_value); 
wrileln(’4>aKT добавлен’) 

END; 

2: 

BEGIN 

writeln(’KaKoii фак т вы хоти те 
провери ть ?’); 
wrileIn(’BBCAHTc: 

(ОБЪЕКТ) =(ЗН А ЧЕНИ Е)’); 
readln(sline); 
splil(s_linc,s_objccl,s_value); 
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IF test(s_object,s_value)=NIL THEN 
writeln(’HEBEPHO’) 

ELSE 

writeln(’BEPHO’) 

END; 

3: see objects(FALSE); 

END 

END 

ELSE writeln(’Bbi должны ввести число от 1 
до ’,choice_lim) 

END 

END. 



ГЛАВА 6 


Представление знаний 

Теперь экспертная система имеет возможность управ¬ 
лять фактами базы знаний; она может воспринимать новые 
фак ты в виде пар "объект - значение", выполня ть поиск кон¬ 
кретного факта в базе знаний и выводить па экран список 
всех flap, имеющихся в базе знаний на данный момент. Аля 
демонстрации системы в действии мы создадим небольшую 
базу знаний для опенки состояния здоровья и прогнозирова¬ 
ния продолжительности жизни. В этой главе мы разберем 
сив 1 таксис записи фак тов и пар "объект - значение". В каждой 
последующей главе мы будем расширять эту сис тему но мере 
добавления к программе новых модулей. 

Сис тема определения состояния здоровья будет оцени¬ 
вать здоровье индивидуума на основании введенных значе¬ 
ний заранее определенных факторов риска и влияния 
привычек па продолжительность жизни. Программа Задаст 
пользователю несколько вопросов о его привычках и образе 
жизни. На основании ответов система предскажет продолжи¬ 
тельность жизни индивидуума. 

Так же как мы описываем каждый модуль программы и 
приводим его текст, мы будем добавлять новые компоненты к 
базе знаний. В гл. 4 мы создали систему ввода фактов в виде 
пар (состоящих из имен объекта и значения), а не триплетов 
(объект, атрибут, значение). Поэтому синтаксис требует, 
ч тобы каждый фак т вводился в таком формате: 


ОБЪЕКТ ^ЗНАЧЕНИЕ 


Вот примеры правильного написания: 
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возраст =35 
курение=ла 
нес =75 

Для экономии места наша экспертная система, после 
завершения разработки будет при считывании фактов игно¬ 
рировать пробелы между словами. Следовательно, несколько 
слов is левой или правой час ти равенс тва нужно объединить с 
помощью понятного разделителя - подчеркивания (_) или 
дефиса (-). Например: 

курилыцнк_сигарет=да 
холестериіі-в-Аепь = 1200-грамм 
ежедііеііпыеунражнения =30_мииут 

Без таких разделителей имена объекта или значения, состо¬ 
ящие из нескольких слов, сольются is одно, напоминая невра¬ 
зумительное бормотание. 

Наша демонстрационная система будет учитывать 12 
кри териев здоровья: 

1. Возрас т. 

2. Вес, с учетом телосложения. 

3. Пол. 

4. Курение. 

5. Потребление холес терина. 

6. Потребление ненасыщенных жиров. 

7. По требление соли. 

8. Потребление кальция. 

9. Происхождение. 

10. Расовая принадлежность. 

11. Тип личноети. 

12. По требление алкоголя. 

Программа предложит оператору ввести значения 
объектов для построения в каждой области выражения фак¬ 
тов. Со временем, программа сможет извлекать некоторые 
значения из статистических характеристик, записанных в 
файлы базы данных. В процессе консультации компьютер 
будет запрашива ть пользователя о его пи тании, привычках и 
тине личнос ти. 

На этот раз мы создадим серию выражений "объект - 
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значение", представляющих факты в базе знаний состояния 
здоровья. После того как мы создадим машину вывода, эти 
факты будут включены в эвристические правила, которые 
система сможет применить для "рассуждения" о состоянии 
здоровья индивидуума. 

Давайте поочередно рассмо трим каждый критерий. 


Возраст, вес и пол 

Эксперт-человек, оценивающий здоровье индивидуума, 
сначала устанавливает его возраст, вес и пол. Значения этих 
объектов гораздо важнее других факторов. Например, у 60- 
летнего тучного мужчины уровень риска умереть от 
сердечного прис тупа намного выше, чем у 20-летней девушки с 
нормальным для своего роста и сложения весом. 

Мы можем выразить возраст индивидуума таким обра¬ 
зом: 


возраст =60 

Аналогично вес человека также можно представить 
парой "объект - значение": 

вес =200 

Очевидно, ч то вес зависи т от таких (рак торов как пол, 
рост и телосложение. Например, вес в 100 фун тов може т бы ть 
нормальным весом для женщины ростом в 5 футов 4 дюйма 
среднего телосложения; но тот же самый вес для 6-футового 
мужчины будет явно ненормальным. И наоборот, если 200 
фунтов - нормальный вес для мужчины ростом 6 фу тов 2 
дюйма, он слишком велик для женщины рос том 5 футом. 

Для пола в качестве имени значения мы будем исполь¬ 
зовать сокращение: 

пол =ж 

Здесь важно соблюдать соответствие. Если мы исполь¬ 
зуем в одном мес те в качестве имени значения "м", а в другом 
"муж", то логика системы не сработает. Таким же образом мы 
можем предс тавить рост и телосложение: 
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рост=5_фт 

телосложение =срелнее 

В будущих модулях наша экспертная система будет 
применять правила, относящиеся к полу, весу, возрасту и 
телосложению, для суждения о нормальности веса индивиду¬ 
ума. Заключение системы будет представлено в виде 
выражения факта вида: 

вес недостаточный 


Кри терии курения и питания 

Нс секрет, что курение оказывает отрицательное влия¬ 
ние на состояние здоровья. Когда наша программа запрашива¬ 
ет пользователя о привычке к курению, она делает вывод от¬ 
носительно степени риска заболевания индивидуума сердеч¬ 
ной недостаточностью и раком. Объект с именем КУРИЛЬ¬ 
ЩИК может принимать значения ДА или НЕТ: 

курильщик =да 

Кроме того, программа оценки сос тояния здоровья бу¬ 
дет рассматривать влияние четырех компонентов питания - 
холестерина, ненасыщенных жиров, соли и кальция. Наука 
утверждает, что риск сердечных заболеваний ниже у тех 
людей, которые употребляют пищу с низким содержанием 
холестерина и относительно высоким содержанием нена¬ 
сыщенных жиров. Большое количество соли в нище способст¬ 
вует повышенному кровяному давлению, которое, в свою 
очередь, является фактором риска для более серьезных форм 
сердечных заболеваний. Потребление кальция в основном 
касается женщин старше 40 лет; низкое содержание кальция 
увеличивает риск остеопороза, особенно у пожилых женщин. С 
учетом этих соображений, введем следующие дополнительные 
факты: 


пот реблениехолест ерина =низкое 

пот рвблениененасыщенны хжиров =Высокос 
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нотреблениесоли =низкое 
потреблениекальцин =высокое 


Тип личности и расоно-этничсскис критерии 

Другим важным (рак гором здоровья является тип лич¬ 
ности индивидуума. В известных работах психологов, обсле¬ 
довавших более 10000 пациентов с сердечными заболевания¬ 
ми, установлено, что агрессивный, невыдержанный тип 
личности, "Тип А", в большей степени подвержен фатальным 
сердечным приступам, чем покладисіъій, менее амбициозный 
"Тип В". Поэтому наша экспертная система будет исследовать 
такое выражение: 

типличности =тии-Ь 

Происхождение и расовая Принадлежность также имеют 
определенное значение. Чернокожий мужчина родом иэ 
Средиземноморья имеет повышенный фактор риска развития 
сердечных заболеваний: 

район Средиземноморье 

раса =негроидная 

Когда машина вывода применяет правила, управляя 
фактами базы знаний, опа може т проверить, насколько обос¬ 
нованы следующие факты: 

риск_сердечного_заболевания=высокий 

рискос теопороза =нижс_среднего 

риск рака =выше_среднсі о 

Потребление алкоголя также связано с продолжитель¬ 
ностью жизни. Люди, употребляющие очень умеренное коли¬ 
чество алкоголя (около 30 граммов в день) обычно живут 
дольше абсолютно непьющих и тех, кто склонен к излишес т¬ 
вам. Поэтому добавим в базу знаний оценки здоровья 
следующий факт: 

по і реблениеалкоіоля ^умеренное 
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Экспертная система решает проблему, преследуя опре¬ 
деленную цель. В нашей демонстрационной системе эта цель 
выражена в форме рекомендаций. Каждое предполагаемое 
решение будет име ть вид выражении фак та такого типа: 

предсказаннаипродолжитсльнос ть=6()_лс'т 

Это решение показывает, что человек по предсказа¬ 
нию системы, основанному па анализе данных об образе его 
жизни и привычках, проживе т до 60 ле т. 

Ч тобы провери ть сис тему в дейс твии, используй те ре¬ 
лак тор для ввода программных модулей, описанных в гл. 4 и 
5. Затем скомпилируй те программу и занусти те се. При 
запуске программы на экране появи тся меню: 

1. Добавление фак та в базу знаний 

2. Проверка истиннос ти фак та 

3. Просмо тр фак тов базы знаний 

4. Выход 

Введите номер от 1 до 4 и нажми те ENTER: 

Для ввода выражений фактов, перечисленных в этой 
главе, вам нужно выбрать возможнос ть I. Для проверки фак та 
- возможность 2. После того как вы ввели последний фак т, 
можно Выбрать возможность 3 и просмотре ть все содержимое 
базы знаний. 


Пробный запуск программы 

Давайте сделаем пробный запуск пашей нрограммы, 
чтобы посмотреть, что же мы имеем. Выполните программу, 
как описано выше. Когда появится меню, выберите 
возможность 1 для добавления пар "объект - значение". 
Программа выведет на экране дисплея: 

Введи те номер ОТ 1 до 4 и нажми те ENTER:1 

Какой фак т вы хо ти те добави ть в базу Знаний? 

(Ввели те:(ОБЪЕКТ)=(ЗН А Ч ЕН И Е)) 
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Прогрсиіша предлагает паи ввести факт в eude пары 
"объект - значение". 

возраст =50 

Факт добавлен. 

1. Добавление факта в базу знаний 

2. Проверка истинности факта 

3. Просмотр фактов базы знаний 

4. Выход 

Введите номер от t до 4 и нажмите ENTER: 

Програлиіа добавляет выражение факта в базу 
знаний и снова выводит на экран меню. Теперь 
выберите возлюжность 2 и посмотрите, исти¬ 
нен ли факт, который вы только что добавили. 

Введите номер от 1 до 4 и нажмите ENTER:2 

Какой фак т вы хотите проверить? 

(Введи і е:(ОБЪЕКТ) =(ЗН АЧЕНИЕ)) 

Введите ту же самую пару "объект - значение", 
которую вы только что добавили в базу знаний: 

возраст =50 
ИСТИННО 

1. Добавление факта в базу знаний 

2. Проверка истинности факта 

3. Просмотр фактов базы знаний 

4. Выход 

Введите номер от 1 до 4 и нажмите ENTER: 

Система проверяет факт и выдает ИСТИННО. 
Выберите возлюжность 3 для просмотра 
содержимого всей базы знаний. 

Введите номер от 1 до 4 и нажмите ENTER:3 

ФАКТЫ БАЗЫ ЗНАНИЙ: 

возраст =50 


3 Заказ №852 
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ГЛАВА 7 

Представление неопределенности 


В двух предыдущих главах было показано как экспер¬ 
тная система управляет вводом выражений фактов в виде* пар 
"объек т - значение". В этой главе мы рассмотрим как сис тема 
использует выражения неопределенной информации. 


Коэффициенты определенности 


Поскольку не все знания строг о определены, эксперт¬ 
ная система должна име ть средства обработки различной сте¬ 
пени доверия в заданных выражениях фактов. Субъективные 
утверждения склонны к абсолютности; в Заявлении "Мой 
любимый пистель - Достоевский" не содержится сомнений в 
определенности факта. Однако в выражении "Достоевский - 
величайший в мире романист" степень доверия более 
переменна. 

Таблица 7.1 иллюс трирует различный характер выраже¬ 
ний фактов. Мы можем с абсолютной определенностью утвер¬ 
ждать что "Фамилия пациента - Фипгсрбендер". Если клини¬ 
ческие показания убедительно свидетельствуют, что "У 
пациента коронарный эмболизм", наш уровень уверенности 
высок. Если же, наоборот , свидетельства того, что "Миокард 
ишемичен" не очень убедительны, то уровень уверенности 
низок. 
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Таблица 7.1. 

Примеры коэффициентом определенности 


Факт 

Доверие 

Оі і ределенность 

Имя паииспта- 
Фиш ербендер. 

Определенно 

100 

У пациента 
коронарный 
эмболизм. 

Убедительно под¬ 
тверждено клини¬ 
ческими показаниями 

90 

Миокард 

ишемичеи 

Слабо под тверждено 
клиническими пока¬ 
заниями 

25 


Экспертные системы выражают относительную умерен¬ 
ность в факте с помощью коэффициентов доверия . Коэф¬ 
фициент доверия (кд), равный 100, означает высший (абсо¬ 
лютный) уровень уверенности, коэффицисн с 0 - самую низкую 
определенность. Способы оценки определенности варьируются 
от стандартной теории вероятностей до совершенно 
субъективных оценок. 

Оценка определенности 

В табл. 7.2 показано использование статистики в 
представлении неопределенности. В этом примере цель экс¬ 
пертной системы - определить оптимальное распределение 
потока товаров по ряду торговых предприятий в зависимос ти 
от по требнос тей конкре тных районов. За пи тилетний период в 
районе 1 насчи тывалось 30% продаж в течение 80% времени; 
в районе 2 - 20% продаж в течение 60% времени и т.д. Методы 
улучшения точности оценок включают экспоненциальное 


* В литературе для обозначения исдооирсдслспиости информации применяются 
различные выражения: коэффициент доверия, коэффициент определенности и т.п. В 
дальнейшем мы будем использовать н основном определение "коэффициен т' доверия", 
так как его сокращенное обозначение - "кд" - создаст' определенные удобства при 
записи правил (его трудно сиузать с началом какого- либо слова). - Примеч. пер. 


3* 
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сглаживание, показа гели тенденции для учета весов сезонных 
или самых последних данных, пуассоновский анализ и 
линейный регрессионный анализ. Например, во многих 
сис темах коэффициент определенности 80 означает 80% - нуіо 
вероя тность, что выражение истинно. 


Таблица 7.2 

Пример использования коэффициентов 
определенности для выражения вероятности 


Терри тория 

Процен т продаж 

Определенность 

Район 1 

30 

80 

Район 2 

20 

60 

Район 3 

15 

75 

Район 4 

15 

80 

! 


Но зачастую выражения фак тов не так прос то описа ть 
количественно или статистически, и для оценки определенно¬ 
сти требуются боЛее субъективные методы. Рассмотрим 
следующий пример: продавец компьютеров предполагает 
приобрести новую линию программного обеспечения. Хотя он 
может воспользоваться многими статистическими 
инструментами, большинство соображений, влияющих па 
решение о закупке, носят субъективный харак тер. Некоторые 
из таких критериев, с описанием четырех основных уровней 
определенности, которые каждый из них может принимать, 
перечислены в.табл. 7.3. 

Продавец рассматривает каждый критерий относи¬ 
тельно четырех описательных категорий, затем приписывает 
коэффициент определенности соответствующей паре "объект - 
значение". Допустим, например, что цепа потенциальной 
закупки ПРОДУКТ1 примерно такая же, что и у других 
продуктов аналогичного качества. Оценка ПРОДУКТАI по 
отношению "цепа/качество" - "посредственная” и продавец 
присваивает парс "ПРОДУКТ1 =КОНКУРЕНТНАЯЦЕНА" коэф¬ 
фициент доверия, равный 45. Допустим, ПРОДУКТ1 будет 
существенно способствовать продаже имеющихся у продавца 
продуктов. Для критерия "влияние на пролажу имеющихся 
линий" оценка будет "отличная", и парс "ПРОДУКТ! =ДОПОД- 
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НЯЮЩИЙ" продавец присвоит коэффициент доверия, равный 
90. 

Эта матрица служит двум целям: во-перных, она опре¬ 
деляет формат для оценки определенности на основе субъек¬ 
тивных суждений; во-вторых, облегчает перевод важных фак¬ 
тов в пары "объект - значение", которые могут обрабаты¬ 
ваться экспертной системой. 


Программные модули для обработки 
переменной определенности 

Модули, рассма триваемые в данной главе, позво¬ 
лят программе нашей экспертной системы обрабатывать 
переменную определенность. Применяя матричную систему 
оценки, аналогичную табл. 7.3, программа сможет считывать 
целое значение коэффициента доверия (кд) в пару "объект - 
значение", или наоборот, переводи ть субъективные выражения 
"плохое, среднее, хорошее, абсолютное" в числовой коэф¬ 
фициент определенности но шкале от 0 до 100. Дополни¬ 
тельные модули будут использоваться для добавления 
целого кд к сцепленному списку объектов и позволят 
изменя ть существующий кд. 

Введем следующие программные модули: 

(JET CF будет использоваться для извлечения коэ<|>- 
фициепта доверия из пары "объект - значение”. 

BLEND позволит изменять существующий коэффици¬ 
ент доверия, объединяя новое значение с ранее введенной 
величиной кд. 

ADD CF будет записывать новый коэффициент дове¬ 
рия в список "объект - значение”. 

Кроме того, мы изменим основную программу для под¬ 
ключения вновь введенных модулей. 

Извлечение коэффициен та доверия 

Первый модуль отыскивает коэффициент доверия в 
с троке "объект - значение" в виде: 


[ОБЪЕКТ|=[ЗНАЧЕНИЕ|,кд=| КОЭФФИЦИЕНТ ДОВЕРИЯ | 

Теперь, когда пользова тели добавляю т новые фак ты к 
базе знаний, они будут писа ть запя тую, "кд=", и коэффициент 
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доверии от 0 ло 100. В пашей программе 0 будет представлять 
низший уровень определенности, а 100 - наиныеший. В табл. 7.4 
прицелено несколько примеров правильного ввода пар "объект 
- значение" с соответствующими коэффициентами доверия. 

Таблица 7.4 

Выражения коэффициентов доверия в парах 
объект- значение 


[Объект 

Значение 

Доверие 

Формат 

ІПродажи 

Максимум 

80 

продажи =макеимум,кд = І(Н)| 

ІМиокард 

1 Ишемичен 

90 

миокард =иіпемичсн,кд =90 j 

[Вкус 

1 Кислый 

75 

1 вкус=кислый,кд=75 

[Область 

! Медицина 

40 

область =мсдиішна,кд =40 j 


Мы также оборудуем экспертную систему механизмом 
перевода субъективных оценок из лингвистических выраже¬ 
ний в целые значения. 

Эта функции обеспечивае т поиск по введенной строке 
коэффициента доверия, кд. Если этот коэффициент пред¬ 
ставлен числом, функции передает его. Если же он выражен 
словом "плохой", функции перелает значение 25. Аналогично 
слово "средний" преобразуется в 50, 75 обозначает "хороший", а 
100 вводи гея для слова "отличный". 

FUNCTION get_cf(f_line:line_string):integcr; 

VAR 

result, 

stright, 

cfYmtcger; 

trim:line_string; 

BEGIN 

cf:=DEFINITE; 

st_right:=pos(PERIOD,f_linc); 

IF st_right=lcngth(r_line) THEN f_line:=copy(f_line,l,sl_righl-l); 
st_right:=pos(’KA’,f_line); 

IF (st_right>0) AND (si right+3<LINE_MAX) THEN 
BEGIN 

trim:=copy(f_line,st_right+3,length(f_linc)-st_right-2); 
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val(trim,cf,result); 

IF (result>0) THEN cf:=DEFINITE; 

IF pos(’riAoxoii’,trim)>0 THEN cf: =25; 

IF pos(’cpeAHHtt\trim)>0 THEN cf: =5(1; 

IF pos(’xopoiuHrt’,trim)>0 THEN cf:=75; 

IF pos(’a6coAioTHbiri’,trim)>() THEN cf:=DEFINITE 

END; 
get_cf:=cf 
END; 


Изменение коэффициента доверии 

Следующий модуль позволяет изменять существую¬ 
щие коэффициенты доверия, объединяя текущее значение кд 
с новым значением, введенным оператором для того же само¬ 
го факта. Чтобы объединить два имеющихся числа, применя¬ 
ется простой метод сглаживания. Каждое целое умножается на 
100, а произведения складываются. Кроме того, сами числа 
перемножаются и результат вычитается из первой суммы. 
Аля получения нового коэффициента доверия разность 
делится на 100. 

Допустим, что оператор уже присвоил тракту базы 
знаний коэффициент доверия, равный 50. Позже этому же 
факту добавляется коэффициент доверия, равный 75. 
Программа обрабатывает эти два числа следующим образом: 

[(50*100) +(75*100)-(50*75)]/100 =87.5 

FUNCTION blend(cfl,cf2:integer):inleger; 

BEGIN 

blend: =((100*cfl)+(100*cf2)-(cfl*cf2)) DIV 100 

END; 


Сохранение коэффициента доверия 

Следующий модуль - это процедура занесения введен¬ 
ного коэффициента доверия в соответствующий узел списка 
объектов. Сначала процедура расщепляет с троку па три пере¬ 
менные, представляющие имя объекта, имя значения и коэф¬ 
фициент доверия. Затем она проверяе т наличие имени объек¬ 
та в списке объектов. После этого программа обращается к 
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списку значений, чтобы проверить, существует ли уже-ими 
данного значении. И наконец, она добавляет к этому списку 
новый коэффициент доверии. Если коэффициент доверия дли 
указанного значении в узле объекта уже задан, программа 
объединяет два значении. 

PROCEDURE add_cf(f_objecl,r_value:word_slring;cf2:inleger); 

VAR 

cf 1 linlcgcr; 
curr_valuc:value_plr; 

BEGIN 

curr_value:=tcsl(f_object,f_value); 
cf 1: =curr_value / \ccrt; 
сигг_ѵа1ис л .сегІ: =blend(cf 1 ,cf2) 

END; 


Изменение основной программы 

Далее мы изменим основную программу для включе¬ 
нии вновь созданных модулей. В первую очередь нужно изме¬ 
нись вывод на экран для запроса у оператора выражении 
фак та и ввести дополнительный шаг дли запуска процедуры 
ADD CF, сохраняющей введенный коэффициент доверии. 

BEGIN 

max_choicc:=3; 
choicelim: =max_choice +1; 
lasl_try:=N!L; 
lop_facl:=NIL; 
choice: =0; 

WHILE (choiceochoicclim) DO 
BEGIN 

wrileln; 

writcln(’l. Добавление фак та в базу знаний’); 
writeln(’2. Проверка истинности фак та’); 
writeln(’3. Просмотр фак тов базы знаний’); 
writeln(choice_lim,’. Выход’); 
writcln; 

\ѵгіІе(’Внсдите номер от 1 до \max_choice,’ и нажмите 
ENTER:’); 
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readln(choice); 

writeln; 

writcln; 

IF (choice>0) AND (choice<=choicc_lim) THEN 
BEGIN 

CASE choice OF 
1: 

BEGIN 

wrilcln(’KaKort факт вы хо ти те доЬаии сь і? 
базу знаний ?’); 

wrileln(’(BHeAHTe:(OBbEKT)=(3HA4EHHE) 

,к Л -(ЦЕЛОЕ))’); 

readln(sline); 

s_cf: =gel_cf(s_line); 

split(s_line.s_object,s_value); 

add_object(s_object,s_vaIue); 

add_cf(s_objcct,s_value,s_cf); 

\ѵпІе1п(’Факт лоЬанлеп’) 

END; 

2: 

BECHN 

\ѵгііе1п(’Какой фак т вы хотите провери ть?’); 

лѵгіІс1п(’Ввслите:(ОБЪЕКТ)=(ЗНАЧЕНИЕ)’); 

readln(sline); 

splil(s_line,s_objecl,s_value); 

IF lest(s_objecl,s_valuc)=NIL THEN 
wrileln(HEBEPHO’) 

ELSE 

wrilcln(’BEPHO’) 

END; 

3: see objects(TRUE); 

END 

END 

ELSE writeln(’Bbi должны ввес ти число от 1 до’,сЬоісе_1іт) 
END 
END. 
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Пробный запуск программы 


Скомпилирован новые модули и переработанную основ¬ 
ную программу, вы сможе те вводи ть пары "обьект - значение" 
с добавленным к ним коэффициентом доверии. Это т кд можно 
представить целым числом о т 0 до 100, где 0 означает самый 
низкий уровень доверии, а 100 - паивысніий. Кроме чисел, дли 
обозначения относи тельного доверии к определенности выра¬ 
жении факта, оператор может вводить любое из слов "плохой", 
"средний", "хороший" или "абсолю тный”. 

Ч тобы продемонс трирова ть сис тему в действии, давай¬ 
те продолжим разработку программы оценки состоянии здо¬ 
ровья, которую мы начали в гл. 6. Скомпилируйте новые 
модули и изменении, а затем запустите программу expert. 
Введи те каждое из выражений фактов, которые вы создали в 
прошлой главе, па сей раз добавляя коэффициент доверии. 
Ниже приводи тся примеры: 


возрас т =35, кд = 100 
вес =70, кд = 100 
рост =150, кд =100 
телосложсі іие =среднее,кд = 100 
комплекции = тучная, кд =75 
курение =ла, кд =100 

нотрсблснис_холестерипа=высокос, кд =75 
нотрсблсиие_пспасыіцспных_жирон=высокос, кд =75 
по треблспие соли =низкое, кд =50 
типличіюсти = I инЬ 
коронарный_риск=срслиий, кд =75 
по'треблснис_алкоголи=умсрснпос, кд = 100 


Запусти те программу и па экране появится то же самое 
меню, ч то и в гл. 6. Однако, теперь выбрав возможность 1 дли 
ввода фак та в базу знаний, вы сможете добавить коэффици¬ 
ент доверии, используя форма т: 
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ОБЪЕКТ ^ЗНАЧЕНИЕ, КД=ЦЕЛОЕ 


Вместо целого значения ны можете полета нить описа¬ 
ние "абсолютный", "средний", "хороший" или "плохой". Если вы 
опустите п выражении коэффициент доверия, то но умолча¬ 
нию ему буде т присвоено значение 100. 

Теперь, когда вы выберете возможнос ть 3 для вывода 
фактов базы знаний на экран, все выражения в списке буду т 
включать в себя коэффициенты доверия. 



ГЛАВА 8 


Использование многозначных выражений 

В данный момент наша экспертная система содержит 
дне основные группы модулей одну - для управления фактами, 
другую - для управления коэффициентами доверия. Кроме 
того, основная программа обеспечивает краткий интерфейс 
оператора. 

Сейчас программа может воспринимать с троки, is кото¬ 
рых записаны паріи "объект - значение" с соответствующими 
коэффициентами доверия, добавлять новые узлы к сцеплен¬ 
ному списку, отыскивать существующие имена объектов и 
имена значений, а также выводить па экран списки как 
объектов, так и значений. 

В настоящей главе мы доработаем систему, чтобы 
получить возможность управлять списком значений каждого 
узла объекта, проверять, может ли конкретный объект иметь 
более одного значения перед тем как добавить к списку 
значений объекта имена множественных значений. 

Многозначный объект 

Точно так же как некоторые пары "объект - значение" 
могут быть выраженія со 100%-пой определенностью, неко¬ 
торые объек ты в базе знаний имеют лишь одпо-единс твеннос 
значение. Рассмотрим, например, такое утверждение: "Мое 
любимое вино - шампанское". Хотя у человека есть целый ряд 
привязанностей, и он мог бы перечислить их в убывающем 
порядке, любимым может бы ть только один объект. И наобо¬ 
рот, объект "домашнис любимцы" может иметь множество 
значений со 100%-ной определенностью. Следовательно, узел 
объекта с именем МОИ ЛЮБИМЦЫ - многозначный, тогда 
как узел ЛЮБИМОЕ ВИНО - нет. 
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В табл. 8.1 ирикелсн рял других примером. Здесь 
представлены имена нескольких объектов, которые могут 
быть использованы в базе знаний для определения конфигу¬ 
раций интегрированных компьютерных систем специального 
назначения. Объект СРЕДА может иметь только одно значе¬ 
ние. Например, средой может быть либо учреждение, либо 
фабрика. И наоборот, объект ПРИМЕНЕНИЕ может иметь 
несколько различных значений, например, подготовка 
текс тов, ведение баз данных, расче ты и управление процессом. 
Аналогично много значений у объекта ПОЛЬЗОВАТЕЛЬ 
(управляющий, служащий, машинистка и т.н.), так как 
компьютером могут пользоваться несколько человек. Но 
объект РЕСУРСЫ может иметь только одно значение, пос¬ 
кольку ограничение на ресурсы у каждого компьютера свое. 

Другой пример приведен в табл. 8.2. Здесь перечислены 
некоторые имена объектов, которые могуч бы ть применены в 
экспертной системе для диагностики различных форм сердеч¬ 
ных заболеваний. Пациент может иметь только одну фами¬ 
лию и возраст. Но характеристики ЭКГ пациен та могу т быть 
различными: "норма”, "поднятый ST", или "отрица тельный ST". 


Таблица 8.1 

Примеры однозначных и 
многозначных выражений 


Однозначные 

Многозначные 

Среда 

Ресурсы 

Максимальная стоимость 
Максимальный объем документа 

Применение 

Пользователь 

Тип прин тера 

Бюджет 


Аналогично у ферментного анализа крови много 
разных значений (в данном случае, ”КФК", "ЛДГ" и "ТМ" 
относятся к ферментному анализу крови, используемому для 
подтверждения диагноза инфаркт миокарда). Но пациент 
может иметь только один пол и один вес. Таким образом, 
тесты ЭКГ, КФК, ЛДГ и ТМ многозначны, а антропометри¬ 
ческие данные - пе г. 
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Таблица 8.2 

Некоторые примеры однозначных и 


іначных объект 


t значений 


Однозначные 

Фамилия 

Возраст 

Пол 

Вес 

Финт ербендер 

65 

Мужской 

75 

Многозначные 

ЭКГ 

норма, подня т ый ST, 

от рица тельный ST 


КФК 

норма, повышенное, 

пониженное 


ЛАГ 

норма, повышенное, 

пониженное 


ТМ 

норма, повышенное, 

пониженное 


Экспертная система должна уметь обнаружитесь проти¬ 
воречия и избыточность в базе знаний, отличая многознач¬ 
ные объекты от тех, которые таковыми не являются. Обеспе¬ 
чить ей эту возможность должен опера тор - человек. 

Программные модули для многозначных выражений 

Модули, описываемые в этой главе, применяются для 
выяснения, является ли объект в сцепленном списке много¬ 
значным, и для определения его как многозначног о объекта с 
конкре тным именем. 

OK ADD определяет статус любого заданного имени 
объекта в списке для выяснения, многозначный огг или не т. 

MAKEMULTI меняет статус объек та с "немггог озггач- 
тгый" на "многозначный". 

Проверка статуса многозначности 

Сначала мы создадим программный модуль, который 
перед добавлением значения к сггиску буде т контролировать, 
может ли быть данному объекту присвоено значение. Эта 
функция просматривает список объектов для проверки нали¬ 
чия имени данног о объек та. Если объект не многозначный и 
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если у него есть значение с определенностью 1(H), программа 
выдает значение FALSE (т.е. данному объекту может бы ть 
присвоено только одно значение). Если объект много 
значпый, или определенность значения меньше 100, програм¬ 
ма выдает значение TRUE. 

FUNCTION ok_add(f_objecl:word_slring;cf:integer):boolean; 

VAR 

curr_object:object_ptr; 

curr_value:value_ptr; 

is_100:boolean; 

BEGIN 

ok_add:=TRUE; 

is_100:=FALSE; 

curr_objecl:=find_object(f_objecl); 

IF (currobjectoNIL) THEN 
BEGIN 

curr_value:=curr_object~.value_list; 

WHILE (curr valueoNIL) DO 
BEGIN 

IF (curr_value'\ccrt =DEFINITE) THEN 
is_100:=TRUE; 
currvalue: =curr_value / '.nexl 
END 

END; 

IF ((cf =DEFINITE) AND (is_100=TRUE) 

AND(curr_object / '.multivald=FALSE)) 

THEN ok add: =FALSE 

END; 


Объявление объекта многозначным 

Следующий модуль позволяет оператору определить 
заданный объект как многозначный, давая возможность 
приписать указанному имени объекта более одного значения. 
Процедура MAKE MULTI воздействует на имя объекта и 
меняет его статус на многозначный. 

На нервом шаге просматривается список объектов для 
проверки наличия в нем указанного имени. Если программа не 
находит имя объекта (curr object), она создает новый узел и 
добавляет имя в вершину списка, вызывая модуль 
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MAKENODE. И наконец, эта процедура меняет значение поля 
MULTIVALD па TRUE. 


PROCEDURE make_multi(f_line:line_slring); 

VAR 

curr_object:object_ptr; 

dummy, 

f_object:word_slring; 

BEGIN 

split(f_line,r_object,dummy); 

curr_object:=find_objecl(f_objecl); 

IF (curr object =NIL) THEN make_nodc(curr_object); 

сигг_оЬ)есІ л .пате:=Г_оЬ)есІ; 

curr_objcct / \mullivald:=TRUE 

END; 


Изменение основной программы 

Теперь, когда наша экспертная система имеет возмож¬ 
ность проверять, является ли объект многозначным и да¬ 
вать статус многозначности определенным именам объектов, 
нужно изменить основную программу, ч тобы включи ть в нее 
эти новые возможности. 

В приведенном тексте прог раммы вс тавлены два шага. 
В подпрог рамме для возможности 1 перед добавлением парія 
"объект - значение", функция OKADD проверяется на 
значение TRUE: 

IF (ok_add(stringl)=TRUE) THEN 
BEGIN 

Кроме того, для объявления объек та многозначным 
добавлена новая возможность выбора - 4. Это изменение отра¬ 
жено в процедуре меню командой wrileln : 

writeln(’4. Объявление объекта многозначным’); 
и разделом CASE . OF добавлением подпрограммы: 

\ѵгіІе1п(’какой факт’); 
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\ѵгіІе!п(’вы хотите установи ть?’); 
readln(stringl); 
make_multi(slring1 ); 

Послелний шаг в иолпрограмме состоит в вы зове ране 
созданной процедуры МАКЕ MULT1. 

Ниже приводится текст основной программы, измены 
пой для того, чтобы включить эти новые модули. 

BEGIN 

max_choice:=4; 
choice_Hm:=max_choice +1; 
last try:=NIL; 
top facl:=NIL; 
choice: =0; 

WHILE (choice ochoice Jim) DO 
BEGIN 
writeln; 

wrileln(’l. Добавление фак та в базу знаний ); 
writeln(’2. Проверка истинности фак та’); 
wrileln(’3. Просмотр фак тов базы знании’); 
writeln(’4. Объявление объекта многозначным’); 
writeln (choice Jim,’. Выход’); 
writeln; 

write(’BBeAHTe номер от 1 до \max_choice,’ и нажми те 

ENTER:’); 

readln(choice); 

writeln; 

writeln; 

IF (choice>0) AND (choice<=choiceJim) THEN 
BEGIN 

CASE choice OF 

1: 

BEGIN 

writcln(’KaKort факт вы хоти те’); 

writeln(’Ao6aBHTb в базу знаний ?’); 

writcln(’( Введи тс:(ОБЪЕКТ) =(ЗН Л Ч ЕН И Е) 

кл=(ЦЕАОЕ))’); 

readln(sjine); 

s_cf:=get_cf(sline); 

split(s_Iine,s_objecl,s_valuc); 

IF (ok_add(s_object,s_cf) =TRUE) THEN 
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BEGIN 

add_object(s_object,s_valuc); 

add_cf(s_objecl,s_value,s_cf); 

\ѵгке1п(’Факт лобавлен’) 

END 

ELSE 

BEGIN 

\ѵгке(’Аобавлепие не разрешено.’); 

wrke(sobjecl); 

writcln(’ne многозначный’); 

END 

END; 

2: 

BEGIN 

\ѵгііс1п(’Какой факт вы хоти те проверить ?’); 
>ѵгке1п(’Ввелите:(ОБЪЕКТ)=(ЗН АЧЕНИЕ)’); 
readln(sline); 
split(s_line,s_object,s_vaIue); 

IF test(s_object,s_value)=NIL THEN 
writeln(’HEBEPHO’) 

ELSE 

writeln(’BEPHO’) 

END; 

3: see objecls(TRUE); 

4: 

BEGIN 

writeln(’KaKort объект’); 

writeln(’Bbi хотите объявить многозначным ?’); 
\ѵгііеІп(’(Введите:(ОБЪЕКТ))’); 
readln(sobject); 
ш а k е _m u 1 1 і (sobject) 

END 

END 

END 

ELSE writeln(’Bbi должны ввести число от 1 до ’.choice lim) 
END 
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Пробный запуск программы 


Скомпилировав новые модули и запустив программу, 
вы заметите, что теперь меню содержит четвертую воз¬ 
можность - "Объявление объекта многозначным". Пока с 
помощью этой подпрограммы имя объекта не будет опреде¬ 
лено как многозначное, система будет разреша ть добавлять к 
этому объекту только одно значение. 

Чтобьі проверить программу с этим новым дополнени¬ 
ем, давайте расширим пашу гипотетическую сис тему опенки 
состояния здоровья. В предыдущих главах мы вводили 
факты в базу знаний в виде пар "объект - значение" с соответ¬ 
ствующими коэффициентами доверия. Теперь система позво¬ 
ляет нам вводить для одного имени объекта несколько 
значений. 

Введите факты, использовавшиеся в гл. 6. После каж¬ 
дого ввода выбирайте возможнос ть 4 для объявления объек¬ 
та многозначным. Затем добавь те фак ты, которые придают 
имени объекта альтернативные значения. Для просмотра 
содержимого базы знаний выбери те возможнос ть 3. 

Прежде чем записывать каждое возможное значение 
для возраста, веса и роста, мы можем сгруппировать пары 
"объект - значение" по общим категориям или диапазонам. У 
каждой категории определенность равна 100, так что коэф¬ 
фициент доверия можно опустить (по умолчанию он равен 
100 ). 


возраст=27^или_меныпс 
возраст =межЛу_27 й J50 
возраст =50_или_б\м ыне 

Эти диапазоны могут быть менее обширными, мы 
выбрали такие широкие, по статистически значительные 
группы для простоты демонстрации. Аналогично мы можем 
сгруппировать по ка тегориям вес: 

вес=40_или_мспыие 
вес =между_40_и_60 
вес =между_60_и_80 
вес =мсжду_80_и_ 100 
всс=100_или_более 
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Вес будет оцениваться и связи с другими факторами, 
каждый из которых также имеет диапазон возможных зпаче- 


рост=5_футов_или_меныне 

рос і =межлу_5_футами_и_5_с_половиной_футов 
рост =межлу_5_с_половиііой_футов_и_6_футами 
рост=6_футов_или_больше 

комплекция =мелкая 
комплекция =средняя 
комплекция =круппая 

После завершения разработки, экспертная система бу¬ 
дет выводи ть заключение на основе перечисленных фактов о 
весе человека. Вывод системы будет представлен выраже¬ 
ниями: 


вес недостаточный 
вес-нормальный 
вес излишний 

Когда система запрашивает оператора о привычке к 
курению, возможны два факта: 

курение =ла 
курение ис т 

Наша демонстрационная система анализирует также 
потребление холестерина, ненасыщенных жиров, соли и каль¬ 
ция. Ранжируя возможные значения каждого объекта, мы 
можем построи ть следующие выражении: 

по трсблспиехолестсрипа =высокое 
потрсблепиехолсстерипа нормальное 
потреблеііисхолестсрина низкое 

по требленисненасьвценныхжиров =высокое 
потрсблснисненасыщенныхжироп нормальное 
іютрсбленис_ненасыщснных_жиров низкое 
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іютребление_соли=высокое 
нотребление_соли=пормалыюе 
нотреблеі іиесоли =і іи зкое 

но 1 рсЬлсниекальиия =нысокое 
потреблспискальцияоормалыюе 
потреблениекальция =низкос 


Система контроля здоровья будет также учи 
тин личности субъекта. В соответствии с исслсдов; 
Фридмана-Росса, которые мы примем за основу, вовмож 
значения 'типа. Поскольку оценка типа являе 
значительной степени условной, доверие к каждому 
определяется коэффициен том 75. 

тип_личности -тип а, кд =75 
тип личности-тии Ь, кд =75 

При построении заключения системы будут 
ватьсн такие дополни тельные фак ты: 


риск_серлечііых_заболеваний=выше_срсднего 
риск_ссрлечпых_заболсваний=срслний 
рисксердечпыхзаболевапий =пиже_средиего 

риск_рака=выіпе_срелпего 
рискрака =срсдпий 
рискрака =ииже_срелпего 

рискостеонороза отсутствует 
рискостеонороза =умерепш.ій 
рискостеонороза =высокий 

Потребление человеком алкоголя также по: 
одну из трех статистически определенных категорий: 

но треблепиеалкоголя =пе т 
по треблепиеалкоголя =умсреппо 
по треблепие алкоголя =чрезмерно 


тывать 
апіічми 



факту 
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Поскольку система должна быть способна находить 
более одного решения, объект ПРЕАСКАЗАННАЯПРО- 
ЛОАЖИТЕЛЬНОСТЬ имеет такие нозможпые значения: 

іірслсказаппая_прололжителыюсть=84 
предсказанная_продолжителыюсть=82 
прслсказаннаяпрололжителыюс гь=80 
прслсказаппая_продолжигслыюс'іь=72 
прслсказапная_продолжителыюсть=70 
прелсказапная_прололжиіелыіос'іь=68 
11 редска заі п іаяі і рололжител ыюсть =64 
прслсказаннаяпрололжи гелыіосі'ь=60 
предсказаннаяпродолжи тельное і ь =56 
11 редек а заі ша я_п рололжител ы юсть =52 
прслсказапнаяпрололжителыіос ть=50 

Чтобы проверить ваши новые модули, откомпилируйте 
и запустите программу в исправленном варианте. Исходное 
меню буде т содержать новую возможность - выбор 4, "объяв¬ 
ление объекта многозначным". Выберите один из набора фак¬ 
тов этого раздела и добавьте к базе знаний первую пару 
"объект - значение". Затем выбери те возможнос ть 4 и введи те 
имя объекта. Теперь вы може те добани ть к набору оставшиеся 
пары . 


* Здесь ангоры смешивают два разных понятия: многозначного обілкга п раз¬ 
решенных значений обі>скга. В начале гланы упоминалось, что многозначным 
называется объект, который можсі' име ть однопрсмсіпіо несколько абсолютно дос¬ 
товерных значений (например, мои_домаішіис_животныс=кошка, собака). В нрогн- 
іюноложность этому существуют разрешенные значения, которые перечисляются и 
списке, и объект может принимать лишь одно из них. Так. объекту ВОЗРАСТ может 
быт ь присвоено лишь одно достоверное значение из приведенных и данном разделе. - 
Прим си. пер. 









ГЛАВА 9 

Вопросы и разрешенные значения 


Снабдив экспертную систему механизмом для управле¬ 
ния фактами базы знаний, мы с талкиваемся с проблемой по¬ 
лучения осмысленной информации от пользователя. В этой 
главе мы остановимся на методах определения возможностей 
ввода и построении системы опроса. До сих пор программа рас¬ 
познавала парія "объект - значение" с приписанным коэффи¬ 
циентом доверия. Пока еще не шла речь о каких-либо "разре¬ 
шенных значениях" для данного выражения фак та. 

Модули, описанные в данной главе, будут использо¬ 
ваться для извлечения и сохранения имен разрешенных для 
определенного объекта значений и построения вопросов, 
которые будет задавать система при поиске значения 
объекта. 


Разрешенные значения 

Аля пояснения концепции разрешенных значений, 
обратимся к гипотетической консультации, полученной 
пленником космического корабля пришельцев от экспертной 
системы освобождения. Один из вопросов, предлагаемый 
системой пользователю, касался освещения, проникающего 
сквозь иллюминатор. Ответ на вопрос был ограничен двумя 
возможнос тями: прямой и непрямой. Это и есть разрешенные 
значашя объекта "солпечпыйсвет". 

В качестве другого примера представим себе эксперт¬ 
ную систему, предназначенную для того, чтобы посоветова ть 
энергичному и перспек тивному молодому специалис ту, как ему 
себя держать с молодой особой, с которой он познакомился. 
Когда наш молодой человек консультируе тся с экспертной сис¬ 
темой, программа задает ему вопросы такого типа: 
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Какое образование получила девушка? 

1. Массачусетский Технологический институт 

2. Кулинарный колледж 

3. Школа водителей грузовиков 
3 

Во ч то одета молодая леди? 

1. Ман тия до пола 

2. Бикини из шнурочка 

3. Косном мили 
3 

Чем занимае тся девушка? 

1. Библиотекарь 

2. Антивоенный активист 

3. Ней тронный спектроскопист 
2 


В этой консультации выбор одного из возможных от¬ 
ветов представляет одно из возможных значений объекта, к 
которому относится вопрос. Первый вопрос касается объекта 
образование, и его разрешенные значения: Массачусетский Техно¬ 
логический институт, кулинарный колледж и школа водителей 
грузовиков. Следующий вопрос перечисляет разрешенные зна¬ 
чения объекта одежда, а тре тий - объекта занятие. 

Следовательно, нашей экспертной системе требуется 
механизм счи тывания имен разрешенных значений из вводи¬ 
мой с троки и занесения их в сцепленный список. 


Вопросы о разрешенных значениях 

Как видно из предыдущей консультации, программа 
должна также име ть возможность задава ть вопросы, относя¬ 
щиеся к определенному объекту. Когда пользователь вводи т 
разрешенные значения объекта, каждое поименованное зна¬ 
чение становится одной из возможностей, выбираемых it от¬ 
вет на вопрос. Оператор должен внести текс т э того вопроса. 

В табл. 9.1 приведено несколько примеров имен объек¬ 
тов, разрешенных значений и вопросов экспертной системы. 
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Таблица 9.1. 

Примеры разрешенных значений 


Объект 

Разрешенные 

значения 

Вопрос 

ЭКГ 

норма, поднятый 

ST, отрицатель¬ 
ный ST 

Как выглядит 
зубец ST на 

ЭКГ пациента? 

цена 

пеограничена, 

минимальна, макси¬ 
мальна, статична 

Как определена 
цена в торговом 
договоре? 

класс 

автомобиль, пере¬ 
движной лом, 
недвижимость 

Какой вил собствен¬ 
ности вы предпочи¬ 
таете в качес тве 
обеспечения? 

цвет 

красный, белый 

Какого цвета вина 
вы предпочи тае те? 


Сначала пользователь вводит имя объекта вместе со 
списком связанных с ним разрешенных значений. Этот ввод 
похож па пару "объект - значение", с той лишь разницей, что 
правая часть равенства может содержать несколько имен 
значений. Например, в приведенной выше консультации моло¬ 
дого человека, ввод для добавления разрешенных значений к 
первому вопросу будет выглядеть так: ОБРАЗО¬ 

ВАНИЕ =МАССАЧУСЕТСКИЙ ТЕХНОЛОГИЧЕСКИЙ ИНС¬ 
ТИТУТ, КУЛИНАРНЫЙ КОЛЛЕДЖ, ШКОЛА ВОДИТЕЛЕЙ 
ГРУЗОВИКОВ. В более прагматическом примере, набор 
разрешенных значений для обьекта ЭКГ примет вид: 
ЭКГ =НОРМА, ПОДНЯТЫЙ ST, ОТРИЦАТЕЛЬНЫЙ ST; и для 
объекта температура, ТЕМПЕРАТУРА =НОРМАЛЬНАЯ, 
ПОВЫШЕННАЯ, ПОНИЖЕННАЯ. 

Затем оператор вводит текст вопроса. К объекту ЭКГ 
добавляется вопрос "Как выглядит зубец ST па ЭКГ пациен¬ 
та?". К имени объекта температура может быть добавлен 
вопрос "Какая температура у пациента?". 
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Программные модули для вопросов 
и разрешенных значений 


Модули, описанные и этой глане, позволит экспертной 
системе воспринять инод опера тора, содержащий имя объекта 
и список разрешенных значений, и подсоединить имена этих 
значений к сцепленному списку объек та. Кроме того, 
программа будет снабжена устройством добавлении нопросов 
об определенных объек тах и вывода существующих нопросов с 
соответствующими разрешенными значениями на экран 
дисплея. 

FINDWORD находит разрешенное значение в строке, 
содержащей имя объекта и список разрешенных значений. 

ADDLEGAL добавляет разрешенное значение к имени 
определенного объекта. 

FIND LEGAL находит конкретное разрешенное значе¬ 
ние в списке разрешенных значений объекта. 

MAKE LEGALS воздействует на строку, содержащую 
имя объекта и перечень разрешенных значений для выделе¬ 
ния каждого имени списка. 

ADDQUESTION запоминает введенный оператором 
вопрос об определенном объекте. 

P QUESTION выводи т на экран существующий вопрос о 
названном объекте. 

ASK позволяет оператору ответить на вопрос, постав¬ 
ленный программой. 

Определение расположения разрешенного значении 
В строке 


Первый модуль просто будет определять располо¬ 
жение п-го значения is строке вида ОБЪЕКТ=ЗНАЧЕНИЕ1, 
ЗНАЧЕНИЕ2, ЗНАЧЕНИЕЗ, ЗНАЧЕНИЕ4 и запоминать най¬ 
денное значение в переменной WORD. Если п-е значение не 
найдено, функция принимае т значение FALSE. 

Эта функция сначала вычисляет номер имени разре¬ 
шенного значения, содержащегося в с троке, за тем отмечает 
позицию следующей запя той в списке разрешенных значений. 
Если число значений меньше п, программа выдает значение 
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FALSE. Найля n-e разрешенное значение, программа выдает 
TRUE и копирует имя значения в строковую переменную 
WORD. 

FUNCTION find_word(f_linc:line_string;n:inlegcr;VAR 
word:word_string):boolean; 

VAR 

x, 

com_place:integcr; 

BECilN 

f indword: =FALSE; 
word:=”; 

FOR x:=l TO n DO 
BEGIN 

com place: =pos(COM MA,f line); 

IF (com_place=0) THEN 
BECilN 

com_place:=lenglh(f_line)+l; 

find_word:=TRUE 

END; 

word:=copy(f_line,l,com_place-l); 

f_line:=copy(f_line,com_placc+l,lenglh(r_line)-com_place) 

END 

END; 


Добавление узла к списку разрешенных значении 

Этот модуль добавляет новый узел в вершину списка 
разрешенных значений объекта. Сначала процедура создает 
новый узел для имени значения. Затем она переопределяет 
вершину списка и устанавливает указатель current object*.legal _ 
list на этот новый узел. И наконец, она заносит в новый узел 
ссылку на вершину списка. 

PROCEDURE add_legal(f_objecl:word_string;curr_objecl:objecl_plr); 
VAR 

currvalue, 

hcaddcgalplr; 
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BEGIN 

ncw(currvalue); 
сигг_ѵа1ие л .пехІ.:=ЖЕ: 
curr_value~.name:=f_object; 
head: =curr_object~.legal_lisl; 

IF (headoNIL) THEN 
BEGIN 

WHILE (hcad".nexl<>NlL) DO 
hcad:=hcad~.nexl; 
hcad / '.ncxt:=curr_valuc 
END 

ELSE 

curr_object'\legaMist:=curr_valuc 

END; 


Вы зои значений 


Следующий модуль будет примениться дли извлече- 
ния имени значении после нахождении разрешенного значе¬ 
ния, соответствующего переменной пит в списке резрешеііііых 
значений объекта. 

Объявление переменных определяет указатели, кото¬ 
рые отслеживают список объектов и список резреніепных 
значений. Кроме того, создается счетчик, принимающий 
целые значении. Четвертая объявленная величина опреде¬ 
ляет строковую переменную WORD. В нее заносится разре¬ 
шенное значение, используемое в первом модуле. 

Функция FINDLEGAL сначала расщепляет строку, со¬ 
держащую имя объек та и список разрешенных значений. За¬ 
тем выполняется проверка наличия объекта в списке объек¬ 
тов. Если имя объекта найдено, функция принимает значение 
TRUE. Далее программа устанавливает значение счетчика на 
единицу и просматривает список разрешенных значений 
объекта до тех пор, пока не обнаружит заданный элемент. 
Если конец списка достигается прежде, чем найдено 
определенное разрешенное значение, выдае тся FALSE. 
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FUNCTION rind_lcgal(f_object:word_slring;n:intcgcr;VAR 
word:word_string) 
rboolean; 


VAR 

curr_objccl:objcct_plr; 

curr_valuc:legal_ptr; 

counlcr:inleger; 

BEGIN 

curr_objccl:=find_objcct(f_objccl); 

find_legal:=TRUE; 

IF (curr objcclonil) THEN 
BEGIN 

curr_value:=curr_objecl / \legal_list; 

word:=curr_value^.namc; 

countcr:=l; 

IF (curr_value=NIL) THEN find lcgal:=FALSE; 
WHILE ((currvalueoNIL) AND (counter<n)) DO 
BEGIN 

сигг_ѵаІис:=сигг_ѵаІис л .пехІ; 

IF (curr valueoNIL) THEN 
BEGIN 

word:=curr_valuc~.name; 
counter: =counlcr+1 
END 

ELSE find_lcgal:=FALSE; 

END 

END 

ELSE find_lcgal:=FALSE; 

END; 


Добавление разрешенных значений 

Теперь, когда программа может извлекать из строки 
имена разрешенных значений, создавать уЗлы дли новых раз¬ 
решенных значений и находить разрешенное значение В спис¬ 
ке, пора снабдить ее механизмом для запоминании доЬавлен- 
ных разрешенных значений. Процедура MAKE LEGALS воз¬ 
действует на строку вида ОБЪЕКТ=ЗНАЧЕНИЕІ,ЗНА- 
ЧЕНИЕ2,ЗНАЧЕНИЕЗ,ЗНАЧЕНИЕМ отделяя каждое зна- 
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чсііис в с троке и добавляя его к списку разрешенных значений 
обьек та. 

Эта процедура сначала расщепляет введенную строку 
лля разлеления имени объекта и имен разрешенных значе¬ 
нии. Затем просматривается список объектов в поисках опре¬ 
деленного объекта. Если имя объекта не пайлепо, программа 
вызывает пронелуру MAKENODE для того, чтобы создать 
новый узел, а по том помещает новое имя объекта н вершину 
списка. Имена значений одно за другим добавляются к списку 
разрешенных значений объекта, пока не будет обработано 
последнее разрешенное значение в строке. При каждом добав¬ 
лении значение сче тчика увеличивае тся на единицу. 

PROCEDURE niake_lcgals(i_linc:line_btring); 

VAR 

currobjecEobjcctplr; 
counter. 
st_placc:inleger; 
new linedine slring; 
word:word string; 
donc:booican; 

[object, 

dum myrwordstring; 

BEGIN 

split(f line,[object,dummy); 
curr_object:=find_object( [object); 

IF (curr_objccl=NIL) THEN make_nodc(curr_object); 
curr objccl A .namc:~f object; 
sl_place:=pos( EQUALS,Mine); 

new_line:=copy(f_line,st_place+l,length(f_line)-st_place); 

counter: = 1; 

done:=FALSE; 

WHILE (done=FALSE) DO 
BEGIN 

done:=find_word(new_linc,counter,word); 

addlegal(word,curr_objccl); 

counter: =counter+l; 

END 

END; 


95 



Добавление вопросов 


Модули, описываемые до сих пор в этой главе, относи¬ 
лись к методам управления разрешенными значениями. Сле¬ 
дующая процедура позволит оператору добавлять вопросы, 
основанные на разрешенных значениях, введенных ранее в ба¬ 
зу знаний. ADD QUESTION воздействует па введенную строку 
вила (ОБЪЕКТ) =(ВОПРОС), извлекая вопрос и помещая его в 
сцепленный список объектов. 

Сначала процедура расщепляет строку, отделяя имя 
объекта от вопроса Затем опа ищет имя объекта в списке объ¬ 
ектов. Если объект не найден, создается новый узел и данный 
объект помещается в вершину списка. Далее программа добав¬ 
ляет к объекту вопрос. 

PROCEDURE add_question(f_line:line_slring); 

VAR 

new_line:line_string; 

curr_objecl:objecl_ptr; 

fobject, 

dummy:word_string; 

st_place:inleger; 

BEGIN 

split(f_line,f_object,dummy); 

curr_object:=find_object(f_objecl); 

IF (curr_object=NIL) THEN makcnode(currobject); 
currobjecC.name: =f_object; 
stplace: =pos(EQU ALS,f_line); 

newline: =copy(f_line,st_place +1 ,Iength(f_line)-sl_place); 

сигг_оЬіесІ л .цие5Ііоп: =new_line 

END; 


Вывод вопроса на экран 

Следующая процедура выводит на экран текст вопроса, 
задаваемого программой оператору. Если текст вопроса не 
задан, он будет формироваться автоматически в виде "Каково 
значение (ОБЪЕКТ)?". 
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PROCEDURE p_queslion(f_objccl:word_string); 

VAR 

curr_object:objcct_plr; 

BEGIN 

curr_objecl:=find_object(f_object); 

IF (currobjcct<>NIL) THEN 
BEGIN 

IF (currobjccC.question <>”) THEN 
wrileln(curr_object'\question) 

ELSE wrileln(’KaKom) значение ’/object,’?’) 
END 

ELSE writeln(’KaKoi?o значение ’,f_object,’?’) 

END; 


Ответ на вопрос 


Следующая процедура позволяет оператору ответить 
на вопрос, заданный программой на основе разрешенных зна¬ 
чений и предварительно введенного текста. Модуль ASK рас¬ 
познает введенное имя объекта и извлекай'! соответствующий 
текст вопроса. Из списка разрешенных значений объекта 
формируется меню, и программа ожидает, пока пользователь 
сделает выбор. 

PROCEDURE ask(f_object:word_slring;VAR f_value:word_slring); 

VAR 

pick, 

pickl, 

num_vals:intcger; 

okay:boolean; 

word, 

selecLwordstring; 

BEGIN 

pquestion(fobjecl); 


Заказ №852 
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IF (find_lcgal(f_objecl,l,word)=FALSE) THEN 
readln(fvalue) 

ELSE 

BEGIN 

num_vals:=l; 

WHILE (find_legal(f_objccl,num_vals,word)<>FALSE) DO 
BEGIN 

wrilcln(num_vals,’. ’,word); 

num_vals:=num_vals+l 

END; 

pick: =0; 

WHILE ((pickcl) OR (pick>=num_vals)) DO 
BEGIN 

wrileln(TU^aAy6cca введи те номер от 1 до’, 

num_vals-1); 

readln(select); 

pick:=ord(selecl[l])-48; 

IF (length(selcct)>l) THEN 
BEGIN 

pickl:=ord(selccl|2|)-48; 

IF ((pick 1 >=()) AND (pickl <10)) THEN 

pick:=pick*10 +pick 1 

END 

END; 

okay:=find_legal(f_objecl,pick,word); 

f_value:=word 

END 

END; 


Изменение основной программы 

Али подключении новых модулей нам нужно изменить 
основную программу, добавив в меню возможности ввода 
разрешенных значений, добавлении вопросов и вывода их на 
экран. Мы должны также увеличить число возможнос тей вы¬ 
бора с 5 до 8 и добавить шаги, на которых буду т вызываться 
наши новые процедуры. 

Кроме того, мы добавляем строки, описывающие новые 
возможности меню: 
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wrileln(’5. Внол разрешенных значений’); 
writeln(Y). Добавление вопросов об обі>ек те’); 
writeln(’7. Ответ на вопрос об объекте’); 

Выбор "Выход" должен бьііь помечен цифрой 8. Ниже 
приведен Полный листинг основной Программы, включающий 
модули, введенные в этой главе. 

BEGIN 

max_choicc:=7; 

choice_lim:=max_choice+l; 

lasl_lry:=NIL; 

lop_fact:=NlL; 

choice: =0; 

WHILE (choiceochoice lim) DO 
BEGIN 
writeln; 

wrileln(’l. Добавление фак га в базу Знаний’); 
wrileln(’2. Проверка истинности факта’); 
wrileln(’3. Просмотр фактов базы знаний’); 
writeln(’4. Обьявленис обьекча многозначным’); 
wrilcln(’5. Ввод разрешенных значений’); 
wri[cln(’6. Добавление вопросов об обі.ек ге’); 
writeln(’7. Ответ на вопрос об объекте’); 
writeln(choice_lim,’. Выход’); 
wrileln; 

write(’BBCAHTe номер оч 1 до ’,max_choice,’ и нажмите 

ENTER:’); 

readln(choice); 

wrileln; 

wrileln; 

IF (choice>0) AND (choice<=choice_lim) THEN 
BEGIN 

CASE choice OF 
1: 

BEGIN 

wrileln(’KaKo6 факт вы хотите лобави гь в базу 
знаний ?’); 

writcln(’(Bi?eAH че:(ОБЪЕКТ)=(ЗНАЧЕНИЕ),кд = 

(ЦЕЛОЕ))’); 

readln(sline); 
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s_cf:=get_cf(s_line); 

split(s_line,s_object,s_value); 

IF (ok_add(s_object,s_cf)=TRUE) THEN 
BEGIN 

add_object(s_objecl,s_valuc); 
add_cf(s_object,s_value,s_cf); 
wrilcln(’OaKT добавлен’) 

END 

ELSE 

BEGIN 

\ѵгііс(’Добавление не разрешсно.Объек т(’); 
wrileln(s_object,’) не многозначный.’); 

END 

END; 

2: 

BEGIN 

writeln(’KaKo6 факт вы хотите проверить ?’); 
\ѵгііе1п(’Ввелите:(ОБЪЕКТ) =(ЗН А Ч ЕН ИЕ)’); 
readln(sline); 
split(s_line,s_object,s_value); 

IF test(s_object,s_valuc)=NIL THEN 
writeln(’HEBEPHO’) 

ELSE 

writeln(’BEPHO’) 

END; 

3: seeobjects(TRUE); 

4: 

BEGIN 

writeln(’KaKOH объект вы хо ти re объявить 

многозначным ?’); 

ѵѵгіІе1п(’(Ввелите:(ОБЪЕКТ))’); 

readln(sobject); 

makemulti(sobject) 

END; 

5: 

BEGIN 

write(’BBeAHTe разрешенное значение лля 
объекта:’); 
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writeln(’ (Введите: (ОБЪЕКТ) =(СПИС(Ж))’); 

readln(sline); 

makelegals(sline) 

END; 


6: 

BEGIN 

ѵѵгііе1п(’Какой вопрос вы хоти те добавить ?’); 

\ѵгЦеІп(’(Введите:(ОБЪЕКТ)=(ТЕКСТ))’); 

rcadln(sline); 

addquestion(sline); 

END; 

7: 

BEGIN 

wrileln(’Bonpoc о каком факте’); 

writeln(’Bi.i хоти те просмотреть?’); 

\ѵгЦе1п(’(Введите:(ОБЪЕКТ))’); 

readln(sobject); 

ask(s_objecl,s_value); 

add_object(s_object,s_valuc); 

add_cf(s_objecl,s_valuc,DEFINITE) 

END 

END 

END 

ELSE writeln(’Bi>i должны ввести число 
от 1 Ao’,choice_lim) 

END 

END. 


Пробный запуск программы 

Запустив новую основную программу на выполнение, 
вы сможете сначала добавить объекту список разрешенных 
значений, а за тем - вопрос. Возможные о тве ты на э тот вопрос 
содержатся в списке разрешенных значений, присоединенном 
к объекту. Чтобы увидеть систему в действии, выбери те из 
меню возможность "Ответ на вопрос об объекте" и введите 
имя объек та. 

Аля проверки новых модулей мы доработаем пашу 
систему оценки состояния здоровья, использовавшуюся в 
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предыдущих главах. В гл. 6 мы ввели в базу знаний факты в 
виде пар "объект - значение", в гл. 7 снабдили выражении 
фактов коэффициентами доверия, в гл. 8 сделали объекты 
многозначными. В данной главе воспользуемся этими факта¬ 
ми для формирования вопросов и разрешенных значений, с 
помощью которых наша демонстрационная система будет 
проводить консультацию. 

После загрузки программы выберите из меню возмож¬ 
ность 5. Введите список разрешенных значений в следующем 
формате: 


ОБЪЕКТ =ЗНАЧ1,ЗНАЧ2,...,ЗНАЧп 

где п - последнее разрешенное значение. После ввода каждого 
списка выбирай те возможность 6 для описания вопроса. Здесь 
приведены разрешенные значения и попросы, требующиеся 
нашей гипо те тической программе оценки состояния здоровья. 

Разрешенные значения 

возраст =25 или меныпе,между_25_и_55,55_или_больще 
вес =55_или_меньше,55-85,85_или_больще 
рост=150_или_меныпс,150-170,170_или_6олыпе 
телосложение =мелкое,крупное 
курение =да,нет 

потрсбление_холестсрина=пысокос,нормальное, низкое 
потреблениерас ти тел ы іы х_жи ров =ві.ісок ое,норма л ь- 
ное,низкое 

Потребление_соли=высокое,нормальное, низкое 
характер =агрессивный,мягкий 

потребленисалкоголя =никакого,умеренное,чрезмерное 
происхождение =сев_амсрика,Средиземноморье 
раса=европеоидная,негроидная,монголоидная 

Вопросы 

возрас т =Сколько пациенту ле т? 
всс=Каков вес пациен та? 
рост=Каков рост пациента? 

телосложение=Каково телосложение пациента? 
курение=Курит ли пациент? 
потребление холес терина =Насколько иелико 
по требление пациентом живо тных жиров? 
потребление_растителыіых_жиров=Насколько велико 


102 



потребление пациентом растительных жиров? 
потребление_соли=Каково содержание соли и пище? 
потребление_кальция=Каково содержание кальция в 
нище? 

потребление_алкоголя=Как оценить потребление 
пациентом алкоголя? 

характер=Какие из перечисленных черт лучше 
описывают характер пациента? 
происхождение =Откуда родом пациен т? 
раса=Какова расовая принадлежнос ть пациента? 



ГЛАВА 10 


Чтение правил 

Теперь ; наша программа экспертной системы имее т воз¬ 
можность читать, запоминать и вызывать пары "объект - 
значение"; читать, запоминать и изменять коэффициенты 
доверия; определять объекты как многозначные; читать, 
записывать и вызывать разрешенные значения; читать, 
запоминать и выводить на экран вопросы о названных 
объектах, основанные на их разрешенных значениях. Ао э того 
момента мы уделяли основное внимание накоплению объектов 
и значений, а также различным элементам интерфейса 
пользователя. В этой главе мы начнем работать нал машиной 
вывода. 


Правила экспер тной системы 

Экспертная сис тема обрабатывает символическое пред¬ 
ставление реальности с помощью эвристических правил, 
обычно с помощью метола обратной цепочки. В этом методе 
консультация начинается с определения конкретной цели или 
конечного результата. Вспомните, в прологе пленник начинае т 
консультацию с цели "освобождение". Врач может попросить 
медицинскую экспертную систему "под тверди ть диагноз", а 
предприниматель - спросить об "оптимальных инвестициях". 
Этот подход принципиально отличается от примой цепочки, 
когда оператор начинает с определения симптома или 
проблемы, а не с цели. В нашем случае мы сосредоточим 
внимание на метоле достижения поставленной цели с 
помощью обратной цепочки. 

Правило состоит из двух частей: предпосылки и заклю¬ 
чения. Как предпосылка, так и заключение являются фактами 
базы знаний, выраженными парами "объек т - значение". В 


104 




пашей программе экспертной системы пранила имеют следую¬ 
щий формат: 

Если ПРЕДПОСЫЛКА то ЗАКЛЮЧЕНИЕ 
Э та простая концепция именуется модус понснс, "ме тол 
убеждения". Его смысл в том, что если верна предпосылка, то 
верно и заключение. Если мы примем утверждение "Если А, то 
Б", то мы также примем, ч то если А истинно, то ис тинно и Б. 

Выражение правил 

Таблица 10.1 иллюстрирует логику правил "ссли-то". В 
каждом случае мы принимаем фак т, что если верна предпо¬ 
сылка, то верно и заключение. Поскольку заключение может 
быть не вполне определенным, пара "объект - значение" в 
части пранила, представляющей заключение, снабжена 
коэффициситом доверия. 

Таблица. 10.1. 

Иллюстрация правил "если - то" 


ІПредпосылка 

Заключение 

[ЕСЛИ ЭКГ =оі рицательиый ST 

ТС) миокард =иіпс- 


мичеп 

[ЕСЛИ цспа=статичпа 

ТО контракт =фикси- 


роваппая цена 

[ЕСЛИ температура =высокая 

ТО лихорадка=да 

|ЕСЛИ занятие =библиотскарь 

ТО ин тересы ли те¬ 

1 

ратура 


Некоторые из правил экспер тной сис темы, описанные и 
прологе, могли бы выглядеть так: 


правилоі: 

то 


если 

солнсчный_свет=прямой 


направление =юг. 
пракило2: если 

солнечный_свет=не_прямой 


направление =ссвср,кл = 100. 
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Эти простые отношения "если-то" представляют узлы 
решения, по которым машина пынода продвигае тся к пос тав¬ 
ленной цели. В качестве более практического примера возь¬ 
мем случай с покупателем, сравнивающим возможные методы 
получения скидки. Допустим, пользова тель рассматривае т две 
возможности: прямую (цена покупки минус страховка, делен¬ 
ная на срок службы), или У ВС - ускоренное возмещение стои¬ 
мости (фиксированный процен т от цены покупки, зависящий 
от типа имущества). В число характеристик, учитываемых 
соответствующим методом, входят: тип имущества, процен т 
пользы, приносимой бизнесу, и цена приобретения. На основе 
законов о налогах 1985 г. некоторые правила налоговой экс¬ 
пертной системы могли бы выглядеть так: 


правило29: 

то 

правилоЗО: 

то 

правилоЗІ: 


если 

имущество =автомоби ль 

типУВС =3-годичное_имущество. 
если 

имущество =передвижной_дом 

тип_УВС=10-летнее_имущество 

если 

тип_УВС=3-голичное имущес тво 


головая_скидка=25_процен тов 


В приведенном примере коэффициен т определенности в 
каждом случае равен 100, так как эти правила весьма точны. 
Налоговые законы весьма определенны, а наибольшую опре¬ 
деленность имеет смерть. 

Правило может включать в себя булевский опера тор "и" 
для образования таких выражений как "Если А и если Б, то В", 
так как не все решения линейны. Следова тельно, экспертная 
система может обрабатывать правила такого вида: 


правило50: если 

изменение_дохода = 140%+_возрас тание и 
метол_прошлого_гола=не_усреднение 


рекомсндуемый_метол =усрслпснис. 
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правило51: если 

процеп тыпозаклалной =$2400 и 
медицинскиерасходы =лоходХ5% 

то 

рекомсндуемыймстод- 
вычетыностатьям. 

Аля виола правил в эксперную систему пользова тель 
сначала записывает их в текс товый файл с помощью любого 
текстовог о редак тора ( edlin MS-DOS, ed СР/М) или программы 
подготовки текстов (WordStar, IBM Writing Assistant или 
MultiMatc). За тем программа счи тывае т это т текстовый файл 
и включает правила в свою базу знаний. 

Программные модули для ч тения, 
сохранения и извлечения правил 

В этой главе мы введем модули, которые позволят 
нашей программе экспертной системы читать, сохранять и 
извлека ть правила, аналогичные приведенным в предыдущих 
примерах. 

P READ будет выполнять некоторые простые вспомо¬ 
гательные операции, такие как преобразование букв вводимой 
строки в строчные и удаление пробелов. 

ADDPREM будет использоваться для добавления к 
текущему правилу предпосылки. 

ADD CON будет добавля ть соответствующее заключе¬ 
ние. 

P RULE обрабатывает указатель правила для вывода 
названного Правила на экран дисплея. 

ENTER RULE читает правило из текстового файла и 
заносит его в список правил экспер тной сис темы. 

READ F1LE будет использоваться для чтения всего 
содержимого файла правил в базу знаний. 

Вспомогательные операции 

Ллг^ облегчения ввода эта процедура будет упаковы¬ 
вать строки в с тандартный формат, исключая пробелы и пре¬ 
образуя все буквы в строчные. Пробелы, стоящие между 
словами в вопросе будут оставлены для че ткости и яснос ти. 
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PROCEDURE p_read(VAR oline:line_string); 

VAR 
c:char; 
cs:string[l 1; 

Icn, 

counter, 

st_place:integer; 

supress:boolcan; 

in_line:line_string; 

BEGIN 

readln(rules,in_line); 

oline:=”; 

len:=lenglh(in_line); 

st_place:=pos(’ и’,іп_1іпе); (Обра ти те внимание на пробел после 

первого апострофа.) 

IF (st placoO) THEN len:=st_place; 
supress:= FALSE; 

FOR counler:=l TO len DO 
BEGIN 

c:=in_line|counler|; 

IF ((c=EOUALS) AND (pos(’BOiipoc\oline)>())) THEN 
supress:=TRUE; 

IF (ord(c)=9) THEN c:=’ ’; (Обра тите внимание на пробел 
между апострофами.) 

IF ((с іп[’А’..’П’|) AND (supress=FALSE)) THEN 
c:=chr(ord(c)+32); 

IF ((c inl’P’./B’D AND (supress=FALSE)) THEN 
c: =chr(ord(c) +80); 

cs:=’ ’; (Обрати те внимание на пробел между 
апострофами.) 

cs| 1|:=с; 

IF((c<>’ ’) OR (supress =TRUE)) THEN 
oline: =concat(olinc,cs) 

END 

END; 


* Прицеленная здесь программа рассчитана на использование для кодирования 
кириллицы альтернативного набора ГОСТа. При использовании основного набора 
операторы перекодировки следуе т 1 соответствующим образом изменить. Примеч. 


108 




Добавление предпосылок 


Теперь перейдем к добавлению предпосылок и заключе¬ 
ний, которые составляют правила экспертной системы. Приве¬ 
денная ниже функция добавляет к текущему правилу предпо¬ 
сылку. Каждое правило имеет список предпосылок, содержа¬ 
щий предпосылки этого правила, и список заключений. 
ADDPREM начинается с операторов, расщепляющих 
исходную строку, для извлечения предпосылки, выраженной 
парой "объект - значение". Затем программа создает ноный 
узел списка предпосылок правила, устанавливая указатель 
правила curr nile на соответствующее имя объекта и имя 
значения. Завершает подпрограмму добавление к списку 
нового узла. 

FUNCTION 

add_prcm(curr_prem:prem_ptr;Mine:line_string):prcm_plr; 

VAR 

temp, 

new_prem:prem_plr; 

fobjcct, 

f_valuc:word_string; 

BEGIN 

split(f_line,f_objcct,f_value); 

add_prcm:=curr_prem; 

new(ncwprem); 

WITH new_prem /v DO 
BEGIN 

object: =f_object; 
value: =f_value; 
nex(:=NlL; 

END; 

IF (currprem =NIL) THEN add_prem:=new_prcm 
ELSE 

BEGIN 

WHILE (currprem^.nextoNIL) DO 
currprem: =сигг_ргет л .пехІ; 
curr_prem~.next:=new_prem 
END 

END; 
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Добавление заключения 


С помощью этой функции к текущему правилу 
добавляется заключение. ADD CON расщепляет вводимую 
строку, выделяя заключение в форме пары "объект - 
значение". Затем программа создает новый узел в вершине 
списка заключений правила и добавляет в него новое 
заключение. 

FUNCTION add_con(curr_con:con_plr;f_line:line_string):con_plr; 

VAR 

temp, 

new_con:con_ptr; 

fobject, 

f_value:word_slring; 

BEGIN 

split(f_line,f_object,f_value); 

add_con:=curr_con; 

new(newcon); 

WITH new_con A DO 
BEGIN 

object: =f_objecl; 
value: =f_value; 
cert:=get_cf(r_line); 
next:=NIL 
END; 

IF (curr_con=NIL) THEN add_con:=new_con 
ELSE 

BEGIN 

WHILE (сигг_соп л .пех1 <>NIL) DO 
curr_con:=curr_con / \nexl; 
curr_con A .next: =new_con 
END 

END; 


Вывод правил на экран 

Этот модуль позволяет программе по запросу выво¬ 
дить существующее правило на экран. P RULE обрабатывает 
указатель правила, находит правило и выводит на экран 
дисплея его текст. 
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PROCEDURE p_rule(curr_rule:rule_plr); 

VAR 

curr_prem:prem_plr; 

curr_con:con_ptr; 

BEGIN 

wrilcln(curr_rulc A .name,’: если’); 
currprem: =curr_rulc / \prem; 

WHILE (curr premoNlL) DO 
BEGIN 

wrile(curr_prem'\objecl,’ =’); 
write(curr_prem~.value); 
currprem: =сигг_ргеш л .пех1; 

IF (currpremoNIL) THEN writeln( ’ и ’) i 
ELSE writeln 
END; 
wrileln(’ to ’); 
сигг_соп:=сигг_гиІс л .соп; 

WHILE (currconoNIL) DO 
BEGIN 

wrilc(curr_con~.object,’=’); 

write(curr_con~.value,’,KA=’,curr_con^cert); 

сигг_соп:=сигг_соп л .пехІ; 

IF (curr conoNIL) THEN writeln(’ и ’) 

ELSE writeln 

END 

END; 


Добавление правил в базу знаний 

Следующая процедура позволяет программе считать 
из текстового файла одно правило и добавить его к списку 
правил. Компоненты правил - предпосылка и заключение - 
обрабатываются раздельно. Процедура ENTER RULE начина¬ 
ется операторами, создающими новый узел в вершине сгіиска 
правил. Затем программа считывает из текстового файла 
предпосылку и добавляет ее к списку. И наконец, она 
счи тывает заключение и помещает его в узел. 
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PROCEDURE enter_rule(rule_name:word_slring); 

VAR 

newrule, 

curr_rule:rule_plr; 

linedincslring; 

done:boolcan; 

BEGIN 

new(newrule); 

IF (top ruleoNIL) THEN 
BEGIN 

currrule: =lop_rulc; 

WHILE (curr_rule'\next<>NIL) DO 
curr_rule:=curr_rulc~.next; 
curr_rule / '.next:=new_rule 
END 

ELSE top_rule:=new_rule; 

WITH new rule" DO 
BEGIN 

name:=rule_name; 

next:=NIL; 

prem:=NIL; 

con:=NIL 

END; 

pread(line); 

done:=FALSE; 

WHILE ((NOT done) AND (NOT Eof(rulcs))) DO 
BEGIN 

new_rule / \prem:=add_prem(ncw_rule / \prem,line); 

prcad(linc); 

IF (pos(’To’,line)>0) AND (length(linc)=2) THEN 
done:=TRUE 

END; 

pread(line); 

donc:=FALSE; 

REPEAT 

IF (Eof(rules)) THEN done:=TRUE; 
new_rule'\con:=add_con(new_rule / \con,line); 

IF linc|length(line)|=’.’ THEN done:=TRUE 
ELSE p read(line) 

UNTIL(done); 
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wrileln; 

prule(newrule) 

END; 


Чтение файла правил 

Теперь нашей программе потребуется возможность 
считать всс^ файл правил в свою базу знаний. Следующая 
процедура, READFILE, читает файл, содержащий подготов- 
ленныо.пользова гелем правила, и обрабатывает встречающие-: 
ся команды для присвоения объекту статуса многозначности, 
добавлении вопросов или добавления к имени объекта разре¬ 
шенных значений. Затем она вызывает процедуру 
ENTERRULE для зан(гсентккажлого правила в соответству¬ 
ющий список правил. 

PROCEDURE read filc; 

VAR 

command:word_slring; 

mline, 

flinedinestiang; 

sl_place:inUsger*. 

BEGIN 

wrileln(’4 ГСНИС 'файла, содержащего правила’); 

assign(rules,’rules’); 

resel(rules); 

lop_rule:=NIL; 

command:-’; 

WHILE (NOT Eof(rules)) DO 
BEGIN 

pread(flinc); 

sl_place:=pos(’(’,f_line); 

IF (st_place=0) THEN st_place:=pos(COLON,f_line); 

IF (st_place>l) THEN 
BEGIN 

command: =copy(f_iine,1,sl_place-1); 
m_linc:=copy (Mine,sl_place+1,length (I _line)- 
slplacc); 

IF (command - многозначный’) THEN 
makemulti(mline); 
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IF (command =’вопрос’) THEN addqueslion(mlinc); 
IF (command =’раэрсшзн’) THEN 
makelegals(mline); 

IF (pos(’npaBHAo’,command)>0) THEN 
enterrule(command) 

END 

END 

END; 


Создание файла правил 


Аля создания файла правил можно использовать 
любой текстовый редактор, который создает файлы в коде 
ASCII. Файлу должно быть присвоено имя rules. При вводе 
каждого правила соблюдайте следующий синтаксис: 

правило(п): если 

ПРЕДПОСЫЛКА 

то 

ЗАКЛЮЧЕНИЕ. 


Проследите за тем, чтобы каждое правило заканчива¬ 
лось точкой. Если точку опустить, программа не сможет пра¬ 
вильно считать этот файл. Ниже приведены примеры верной 
записи правил. 


правило9: 

если 


курильщик =да 

то 

риск рака=выше_среднеіо. 

правило21: 

если 


характер =агрессивный 

то 

тип характера = тип Ь. 

правило35: 

если 


возраст =35 и 
пол=м 


основная продолжи тел ьность =70. 
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Хотя новые модули позволяют системе читать файл 
данных на текущем дисководе, они еще не являются меха¬ 
низмом применения правил для достижения поставленной 
цели. Этот механизм, который можно назвать сердцем или, 
точнее, мозгом экспертной системы, и очередной модуль мы 
рассмо трим в следующей главе. 



ГЛАВА 11 


Достижение цели 

Теперь наша программа имеет возможность считывать 
как правила, так и факты. Аля установления фактов и базе 
знаний экспертная система добавляет имена объектов к сцеп¬ 
ленному списку. Каждый узел списка объектов имеет отдель¬ 
ный список значений, содержащий имена связанных с ним 
значений. Факт может быть однозначным или многознач¬ 
ным. Мы также создали инструментарий для определения 
разрешенных значений названного объекта и создания свя¬ 
занного с ним вопроса, что предос тавляе т опера тору возмож¬ 
ность выбора. В предыдущей главе мы обеспечили программе 
возможность чтения правил "если-то", устанавливающих 
отношения между фак тами базы знаний. 

В этой главе мы снабдим программу машиной вывода. 

Машина вывода 

База знаний представляет описание предметной обла¬ 
сти экспертной системы. Машина вывода является интерпрета¬ 
тором правим, который использует фак ты этой базы знаний 
для решения поставленных проблем. Она осуществляет это 
путем формулирования пробных гипотез и проверки их на с<ь 
ответствие указанной цели. Оператор задаст цель кон¬ 
сультации в виде имени объекта. Машина вывода используе т 
набор правил, пытаясь получить значение указанного 
объекта-цели. Программа продолжает поиск до тех пор, пока 
одно из предполагаемых решений не окажется верным. 

В системах, применяющих подобно нашей программе 
обра тную цепочку, вывод начинае тся с конечного заключения, 
объекта-цели. На рис. 11.1 показан этот процесс. Программа 
перебирает список правил в поисках такого, которое содержи т 
объект-цель в своей правой части. Затем машина проверяе т 
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каждую часть предпосылки правила и процесс начинается 
снопа. 



На рис. 11.2 мы пилим, как машина вывода выполняе т 
поиск п базе знаний для подтверждения предполагаемого 
конечного заключения. В данном примере цель - выдача 
рекомендаций по подходящей методике использования 
налоговой стратегии. Рассматриваемые правила касаются 
величины страховки и типа имущества, па которое 
определяется скидка. Иллюстрация на рис. 11.2 представляет 
несколько гипоте тических правил. 
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Работа начинается с поиска правила, содержащего в 
правой части объект-цель метод_скидки. В данном случае 
оказываются два таких правила, одно из которых 
рекомендует прямой метол, а другое - метод УВС. Затем 
программа строит обратную цепочку для проверки фактов 
каждой предпосылки. 

Программа продвигается таким образом до тех пор 
пока не буду т исчерпаны все подходящие правила. 

Программные модули для машины выкода 

В этой главе мы введем четыре новых модуля для 
анализа правил с помощью машины вывода. 

FINDRULE будет просма трива ть список правил в поис¬ 
ках первого правила, содержащего объект, значение которого 
устанавливае тся в данный момен т. 

CONCLUDE осуществляе т заключения правила. 

PURSUE обрабатывает имя объекта и пытается приме¬ 
нить правила для присвоения объекту значения. 

P RESULT обеспечивает вывод на экран результатов 
консультации. 


Поиск подходящего правила 

Э та функция отыскивае т правило, содержащее в правой 
части имя заданного объекта. Она применяет указатель 
заключения сигг соп для просмотра списка правил до совпа¬ 
дения имени объекта с заданным. Если соответствующий 
объек т найден, функция принимает значение TRUE. 

FUNCTION find_rule(obj:word_slring;curr_rule:rule_ptr):rule_plr; 

VAR 

found:boolean; 

curr_con:con_ptr; 

BEGIN 

found:=FALSE; 

find_rulc:=NIL; 

WHILE ((curr ruleoNIL) AND (found =FALSE)) DO 
BEGIN 

curr_con:=curr_rule'\con; 

WHILE (curr conoNIL) DO 
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BEGIN 

IF (curr con^.object =obj) THEN 
BEGIN 

found:=TRUE; 

find_rule:=curr_rule 

END; 

currcon: =сіпт_соп л .пехІ 
END; 

curr_rule:=curr_rule~.nexl 

END 

END; 


Осуществление заключении 

Следующий модуль представляет собой процедуру для 
осуществления заключения, когда машина вывода находит 
снизь между предпосылкой одного правила и заключением 
другого. Процедура CONCLUDE на основе целых значений кд 
рассматриваемых правил ус танавливает коэффициент доверия 
заключения и выводит заключение на экран дисплея. 

PROCEDURE concludc(curr_rule:rule_plr;prem_cert:inleger); 

VAR 

curr_con:con_plr; 

certrinlegcr; 

BEGIN 

curr_con:=curr_rule / \con; 

WHILE (curr conoNIL) DO 
BEGIN 

add_object(curr_con'\objccl,curr_con~.value); 
cerl:=(prem_ccrt*curr_con / \cerl) DIV 100; 
add_cf(curr_con / \objecl,curr_con / \valuc,cerl); 
curr_con:=curr_con'\next 

END 

END; 


Результирующие факты 

Следующий модуль является сердцем машины вывода 
программы. Процедура PURSUE обрабатывает полученное имя 
объекта, пытаясь применять правила для присвоения ему 
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значения. Если ни одно из правил не позволяет сделать 
вывод об объекте, то его значение запрашивается у 
пользователя. 

Для фиксации текущего правила, рассматриваемого в 
данный момент, процедура использует указатель правил. 
Работа начинается с просмотра списка объектов для проверки 
наличия искомого объекта. Если объек т не найден, в вершине 
списка создастся новый узел. 

Затем программа ищет правило, содержащее в правой 
час ти имя этого объекта. Далее она проверяе т каждую сос тав¬ 
ляющую предпосылки правила. Если правило выполняется, 
его заключение добавляется в базу знаний. Если же значение 
объекта с помощью правил найти не удастся, программа пред¬ 
лагает опера тору ввести имя этого значения. 

PROCEDURE pursue(f_objecl:word_slring); 

VAR 

f_value:word_string; 

curr_object:object_ptr; 

curr_value:value_ptr; 

curr_rule:rule_plr; 

curr_prcm:prem_ptr; 

bad:boolcan; 

solved :boolean; 

lowestiintcgcr; 

BEGIN 

curr_object:=find_object(f_object); 

IF curr_objcct=NIL THEN makc_node(curr_objecl); 
currobjecC.name: =f_objccl; 

IF (curr_objecl~.sought<>TRUE) THEN 
BEGIN 

solvcd:=FALSE; 
currobjec^.sought: =TRU E; 
curr_rule:=find_rule(f_objecl,top_rule); 

WHILE ((curr ruleoNIL) AND 

(ok_add(f object,DEFINITE)=TRUE)) DO 
BEGIN 

currprem: =сигг_ги1е л .ргет; 

bad:=FALSE; 

lowest: =DEFIN1TE; 

WHILE ((curr prem<>NIL) AND (bad=FALSE)) DO 
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BEGIN 

pursue(curr_prcm~.objecl); 

curr_value:=tesl(curr_prem / \objecl, 

currprcm^.value); 

IF curr_valuc=NIL THEN bad:=TRUE 
ELSE IF curr_value'\ccrl <lowcst THEN 
lowest: =сигг_ѵаІие л .сегІ; 
currprem: =curr_prem'\ncxl 
END; 

IF (bad =FALSE) THEN 
BEGIN 

conclude(curr_rule,lowest); 

solved: =TRUE 

END; 

curr_rulc:=find_rule(f_objcct,curr_rulc /4 .ncxl) 

END; 

IF (solved =FALSE) THEN 
BEGIN 

ask(f object,f_value); 

add_objccl(f_object,r_value); 

add cr(f_objccl,r value,DEFINITE) 

END 

END 

END; 


Печать результатов консультации 

Следующая подпрограмма позволяет системе выво¬ 
дить на экран результаты консультации. Процедуре 
Р RESULT из основной программы передается имя объекта- 
цели. Она распечатывает на экране дисплея список всех зна¬ 
чений э того объекта. 

PROCEDURE p_resull(f_object:word_slring); 

VAR 

curr_objecl:objecl_ptr; 

BEGIN 

wrileln; 

writeln(’PE3.yAbTAT КОНСУЛЬТАЦИИ:’); 
writeln; 
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curr_object:=find_object(f_object); 

see_vals(curr_object,TRUE); 

writeln; 

writeIn(’KOHEU КОНСУЛЬТАЦИИ.’) 
END; 


Изменение основной программы 

Изменив основную программу для включения новых 
модулей, ее можно запустись в действие, так как к насто¬ 
ящему моменту у нас есть достаточно модулей для проведе¬ 
ния консультации. 

В приведенном ниже лис тинге дана вся основная прог¬ 
рамма, включая модификации для вызова новых подпрог¬ 
рамм. В первую очередь, это введение новой возможнос ти для 
оператора - "Дос тижение цели”. Когда к качес тве выбора вво¬ 
дится 8, программа предлагает опера тору ввести цель в форме 
имени объекта. Затем она считывает э то имя и вызывае т про¬ 
цедуру pursue. 

BEGIN 

max_choice:=8; 
choicelim: =max_choice +1; 

Iast_try:=NIL; 
lop_fact:=NlL; 
choice: =0; 
readfile; 

WHILE (choiceochoice lim) DO 
BEGIN 
writeln; 

writeln(’l. Добавление факта в базу знаний’); 
writeln(’2. Проверка истинности факта’); 
writeln(’3. Просмо тр фак тов базы знаний’); 
wrileln(’4. Объявление объекта многозначным’); 
writeln(’5. Ввод разрешенных значений’); 
writcln(’6. Добавление вопросов об объек те’); 
writeln(’7. Ответ на вопрос об объекте’); 
writcln(’8. Достижение цели’); 
writeln(choice_lim,’. Выход’); 
writeln; 

write(’BBCAHTc номер о т 1 до ’,max_choice,’ и нажмите 
ENTER:’); 
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readln(choice); 

writeln; 

writeln; 


IF (choice>0) AND (choice<=choice_!im) THEN 
BEGIN 

CASE choice OF 
1: 

BEGIN 

\ѵгііе1п(’Какой факт им хотите добавить в 
базу знаний ?’); 

\ѵгііе1п(’(Ввелите:(ОБЪЕКТ)=('ЗНАЧЕНИЕ) 
,кл =(ЦЕЛОЕ))’); 
readln(slinc); 
s_cf:=gel_cf(s_line); 
split(s_line,s_objecl,s_value); 

IF (ok add(s_objecl,s_cf) =TRUE) THEN 
BEGIN 

add_object(s_objccl,s_value); 
add_cf(s_objecl,s_valuc,s_cf); 
\ѵгііе!п(’Фак т лобанлен’) 

END 

ELSE 

BEGIN 

\ѵгііс(’Лобавлсние не райрешено. 

Объект (’s objecl,’)); 
wrileln( не обі>явлен 

многозначным.’); 

END 

END; 

2: 

BEGIN 

\ѵгііеІп(’Какой факт вы хо тите 
провери ть ?’); 

ѵѵгііе1п(’Ввелите:(ОБЪЕКТ) = 
(ЗНАЧЕНИЕ)’); 
readln(sline); 
split(s_line,s_objecl,s_valuc); 

IF tesl(s_objccl,s_value)=NIL THEN 
wrileln(’HEBEPHO’) 
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ELSE 


writeln(’BEPHO’) 

END; 

3: see_objecls(TRUE); 


BEGIN 

writeln(’KaKoA объек т вы хо ти те 
объявить многозначным ?’); 
\ѵгііе1п(’(Ввслите:(ОБЪЕКТ))’); 
readln(sobjecl); 
makemulti(sobject) 

END; 

5: 

BEGIN 

wrile(’Bi$eAH те разрешенное значение для 
объекта:’); 
writeln(’ (Введи те: 

(ОБЪЕКТ) «(СПИСОК))’); 
readln(sline); 
makclegals(sline) 

END; 

6: 

BEGIN 

\ѵгііе1п(’Какой вопрос вы хотите 
добавить ?’); 

writcln(’( Ввели тс:(ОБЪЕКТ)=(ТЕКСТ))’); 

readln(slinc); 

addqueslion(sline); 

END; 

7: 

BEGIN 

writeln(’C) чем вы хо ти те получи ть 
вопрос ?’); 

\ѵгі1е1п(’(Ввслите:(ОБЪЕКТ))’); 

readln(sobjccl); 

ask(s_object,s_value); 

add_object(s_object,s_value); 
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add_cf(s_object,s_value,DEFINITE) 
END; 


8: 

BEGIN 

writelnfKaicoBa ваша цель ?’); 

\угке1п(’(Ввелите:(ОБЪЕКТ))’); 

readln(sobject); 

pursue(sobject); 

presult(sobject) 

END 

END 

END 

ELSE writeln(’Bbi должны ввести число от 1 
Ao’,choice_lim) 

END 

END. 


Испытание системы 

Хотя программа нашей экспертной системы теперь со¬ 
держит достаточно команд для проведения настоящей кон¬ 
сультации, ей нужна база знаний. Чтобы испытать програм¬ 
му, сначала скомпилируйте новые модули и переработайте ос¬ 
новную программу. Затем сделайте следующее: 

1. Используя текстовый редактор (например, редактор 
PC DOS edlin, или программу типа WordStar), создайте текс то¬ 
вый файл, содержащий ряд правил с парами "объект - значе¬ 
ние" в предпосылке и заключении. Аля ввода правил восполь¬ 
зуйтесь следующим форматом: 

правилоі: если 

[ОБЪЕКТ] =[ЗНАЧЕНИЕ1] 

то 

[ОБЪЕКТ] =[ЗНАЧЕНИЕ2|. 

При чтении файла правил, программа ищет точку в 
конце каждого правила. Если вы опустите эту точку, система 
не сможет отличит ь одно правило от другого. 
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Вы можете также добавить в этот текстовый файл 
предложения "вопрос", "разрецізн” и "многозначный". 

2. Запустите основную программу. 

3. Аля проведения консультации выберите возможно¬ 
сть "Достижение цели". 

4. Введи те имя объекта, представляющего цель, и наж¬ 
мите клавишу RETURN. 

Пробный запуск программы 

При запуске программы expert, она счи тает правила из 
текстового файла на текущий дисковод, введет их в Пазу 
знаний, а затем выведет на экран меню возможностей 
оператора. 

Кроме правил, текстовый файл може т содержать пред¬ 
ложения с разрешенными значениями, вопросами и множест¬ 
венными значениями. Когда программа чи тает файл правил, 
она добавляет эти элементы к базе знаний, избавляя вас от 
необходимости вводить их с помощью программы меню. В 
следующей главе мы рассмотрим метод ввода в файл правил 
полной базы знаний. 




РАЗДЕЛ 3 

ЭКСПЕРТНАЯ СИСТЕМА В ДЕЙСТВИИ 

ГЛАВА 12 

Создание подсистемы объяснения 

Теперь программа нашей экспертной сие гемы достаточ¬ 
но разработана, чтобы проводигь консультацию. Она может 
считывать из текстового файла факты, вопросы, разре¬ 
шенные значении и правила и затем следовать к цели на 
основе предпосылок и заключений введенных правил. В 
настоящей главе мы введем программные модули, позволяю¬ 
щие пользователю следи ть за логикой системы. Новые проце¬ 
дуры помогу т экспер тной сис теме "объясни ть" пользова телю 
ход се рассуждений. Точнее, она будет показывать, как было 
получено конкретное заключение, и почему для достижения 
поставленной цели должен бы ть задан определенный вонрос. 

Способность программы "пояснять" свои рассуждения 
является одной из необходимых характеристик -хорошей экс¬ 
пертной системы. Помимо демонстрации подхода программы 
к решению проблемы, эта подсистема нозноляет оператору 
кон тролирова ть обработку правил, созданных пользователем. 

Допустим, что вы консультируетесь с экспертной 
системой, описанной в прологе. При использовании уже 
созданных модулей процесс взаимодействия может выгля¬ 
деть примерно так: 

Какова ваша цель? 

(Введите: (ОБЪЕКТ)) 

путь_к_вы ходу 
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Какого цве та стены в вашей комнате? 

1. серые 
2.черпые 
2 

Заключение.местонахождение =ваиіа_комнаса кд 90 

Какого цвета стены в коридоре? 

1. серые 

2. черные 


Заключение.уровень =второй_этаж кд НК) 

Какой свет попадает через иллюминатор? 

1. прямой 

2. непрямой 


Аопуспш, вы хотите, чтобы в этом месте 
система приостановила работу и выдала объяснение. 
Если в основной программе появится сірока 
EXPLAIN: = TRUE, то консультация будет проходить 
следующим образом: 


Так как в базе знаний отсутствуе т правило для вывода 

значения объекта свет 

то надо запросить пользователя. 

Какой свет попадает через иллюминатор? 

1. прямой 

2. непрямой 

Система поясняет, что она не может дальше 
следовать к цели, не установив значение обы’кта 
"свет". Как только пользователь введет недостающее 
значение, программа продолжит проверку 
предпосылок и заключении, пока не потребуется 
другое значение или не будет достигнуто решение 
проблемы. 
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Лапай те рассмотрим другой пример. Допус тим, ны кон¬ 
сультируетесь с экспертной сис темой лля опрслслсния наилуч- 
шего ме тола скидки при анализе очередной выплаты голового 
налога. Консультация с нашей демонстрационной программой 
може т выглядеть примерно так: 

Какова ваша цель? 

мстодскидки 

Какова закупочная с тоимос ть имущес тва? 

1. менее $1000 

2. между $1000 и $5000 

3. свыше $5000 

2 

Каков вид собственности? 

1. моторное средство передвижения 

2. недвижимос ть 

3. торговое оборудование 


Как час то это средство используе тся 
в деловых целях? 

1. менее 50% времени 

2. 50% времени или больше 


Заключение.имущество =без_скидки 


Система принта к заключению, что этат вид 
собственности не дает нрава на скидку при 
налогообложении. Aoitycnai, вы хотите получить 
объяснение, какіим образом система сделала такой 
вывод. 

Как час то э то средство используе тся 

в деловых целях? 

1. менее 50% времени 

2. 50% времени или больше 


5 Заказ №852 
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Заключение.имущество =без_скидки 

Так как: если использование_срелстна=менее_50% 
можно сделать вывод, что имущество =6ез_скилки 

В этом прішере система в качестве объяснения 
выводит правило. Ответ ішеет две составляющие: 
первая - это текущая предпосыпка, а вторая - 
результирующее заключение. 


Новые модули 

В этой главе мы введем две новые процедуры. 

EXPLAINHOW позволяет программе "объяснить" ход 
своих рассуждений, выводя на экран правило или правила, ко¬ 
торыми опа воспользовалась для получения конкретного 
заключения. 

EXPLAINWHY обеспечивает системе возможность 
отвеча ть, почему должен бы ть задан то т или иной вопрос. 

Эти новые процедуры будут использоваться програм¬ 
мой только в том случае, когда в основной программе появит¬ 
ся с трока EXPLAIN =TRUE. 

Кроме того, мы модифицируем введенную в гл. 10 
процедуру PURSUE для включения этих новых возможнос тей. 


Объяснение вывода 

Следующий модуль позволяет "объяснить" вывод в 
ходе консультации. При вызове процедуры EXPLAIN HOW, на 
экран выводится надпись "Так как:", зачем - содержание 
текущей предпосылки в формате ОБЪЕКТ^ЗНАЧЕНИЕ. Если 
в выводе участвует более одной предпосылки, программа 
продолжает выводи ть их на экран до чех пор, пока указатель 
текущей предпосылки не приме т значение nil. 

В конце объяснения программа пише т: "Можно сдела ть 
вывод, ч то" и выдает текущее заключение ( тоже в формате 
ОБЪЕКТ=ЗНАЧЕНИЕ). Если получено несколько заключений, 
программа продолжает выводи ть их до чех пор, пока не буду т 
исчерпаны все заключения. 
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PROCEDURE explain_how(curr_rule:rule_ptr); 

VAR 

cuir_prem:prcm_plr; 
cu rrconxonplr; 

BEGIN 

writeln; 

writeln(’TaK как 
currprcm: =сигг_ги1е л .ргет; 

WHILE (currpremoNIL) DO 
BEGIN 

write(curr_prem / \object,’=’); 
write(curr_prem'\value); 
currprcm: =сигг_ргет л .пехІ; 

IF (curr premoNIL) THEN writeln(’ и ’) 

ELSE wrilcln 
END; 

wrileln(’ Можно сделать вывод, что’); 
currcon: =сигг_гиІе л .соп; 

WHILE (currconoNIL) DO 
BEGIN 

wrilc(curr_con / \object,’=’); 
writc(curr_con / \value,’, к.оіір.=’,сигг_соп л .ссгІ); 
curr_con:=curr_con^.next; 

IF (curr conoNIL) THEN writeln(’ и ’) 

ELSE wrilcln 
END; 

wrilcln 

END; 


Объяснение, почему был задан вопрос 

Кроме объяснении, как был сделан вывод, программа 
должна иметь возможность пояснять, почему был задан 
вопрос. Следующая процедура, EXPLAIN WHY, вызывается, 
когда система приходит к какому-либо заключению, но при 
этом в основной программе должна присутствовать строка 
EXPLAIN =TRUE. 
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PROCEDURE explain_why(f_objecl:word_string); 


BEGIN 

writeln; 

\ѵгііе1п(Так как в БЗ отсутствует правило’); 
writeln(’BbiBOAa значения для объекта ’,f_objecl); 
writeln(’ ro нужно запросить пользователя.’); 
writeln 
END; 


Изменения в программе 

Аля того чтобы включить в программу новые модули, 
нам нужно добавить в процедуру PURSUE две строки: одну 
для вызова EXPLAINHOW и одну для вызова процедуры 
EXPLAINWHY. Кроме того, в основную программу перед 
первым оператором WHILE нужно добавить предложение 
EXPLAIN:=TRUE. Процедуры EXPLAINHOW и 
EXPLAIN WHY нужно вставить в программу непосредственно 
перед процедурой PURSUE. 

Ниже приведен полный листинг подпрограммы 
PURSUE с новыми предложениями. Переработанная основная 
программа целиком приведена в Приложении А. 

PROCEDURE pursuc(f_objecl:word_string); 

VAR 

f_valuc:word_slring; 

curr_object:object_plr; 

currvaluervalucptr; 

curr_rule:rulc_plr; 

curr_prcm:prem_plr; 

badzboolcan; 

solvedrboolean; 

lowestiintcger; 

BEGIN 

curr_objccl:=find_objcct(f_objccl); 

IF curr_object=NIL THEN make nodc(curr objecl); 
curr_objccl~.name: =f_object; 

IF (curr_object / \sought<>TRUE) THEN 
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BEGIN 

solved: =FALSE; 
curr_objccl~.sought: =TRU E; 
curr_rule:=find_rulc(f_object,lop_rulc); 

WHILE ((currruleoNIL) AND 

(ok_add(f_objecl,DEFlNITE)=TRUE)) DO 
BEGIN 

curr_prcm:=curr_rule'\prem; 

bad:=FALSE; 

lowest: =DEFI NITE; 

WHILE ((curr prcmoNIL) AND (bad=FALSE)) DO 
BEGIN 

pursue(curr_prcm~.objcct); 

сигг_ѵа1ие:=ІеяІ(сигг_ргст л .оЬіесІ, 

сигг_ргет л .ѵа1ис); 

IF curr_value=NIL THEN bad:=TRUE 
ELSE IF curr_valuc / \ccrl<lowest THEN 
lowest: =curr_value / \cerl; 
currprem: =сигг_ргет л .пехІ 
END; 

IF (bad=FALSE) THEN 
BEGIN 

IF (explain =TRUE) THEN 

explainhow(currrulc); 
concludc(curr_rule,lowest); 
solved: =TRUE 
END; 

curr_rule:=find_rulc(f_object,curr_rule~.ncxl) 

END; 

IF (solved =FALSE) THEN 
BEGIN 

IF (explain =TRUE) THEN cxplain_why(f_objecl); 
ask(f_objccl,f_valuc); 
add_objccl(f_objcct,f_value); 
add_cf(f_objcct,f_value,DEFINlTE) 

END 


END; 



ГЛАВА 13 


Использование экспертных систем 

Для того чтобы залсйстпонать нашу экспертную сис¬ 
тему, нам нужно создать осмысленную базу знаний для 
конкретной предметной области. Как было показано и тл. 3, 
этот процесс требует определения целей грех типов: конеч¬ 
ных, промежуточных и вспомогательных. 


Постановка конечных целей 

Прежде всего нужно определи ть отдаленную, конечную 
цель - какой результат вы, как планировщик проекта, ожи¬ 
даете получить, когда экспертная система решит проблему. 
Недостаточно просто сказать, что "система должна решать 
производственные проблемы", так как сама но себе эта фраза 
не определяет, каким образом система будет приносить 
пользу предприятию. "Минимизация материальных затрат 
при увеличении выпуска продукции" - более точное выражение 
конечной цели. Цель должна выража ть действие или собы тис, 
отображающее воздействие экспертной сис темы па общий ход 
событий. На этом уровне описания степень неопределенности 
может быть достаточно большой. В сценарии с пришельцами, 
описанном в прологе, можно поставить такую цель: "выбрать¬ 
ся подобру-поздорову". В более практических применениях 
конечные цели могут быть выражены как "минимизирова ть 
налогообложение" или "увеличить выживание пациентов с 
недиагностировапной волчанкой". Определеннос ть возрас тае т 
при переходе на следующий уровень. 
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Определение промежуточных целей 


Для каждой конечной цели система может иметь ряд 
промежуточных целей - действий или собы тий, которые прои¬ 
зойдут после того, как будут решены частные проблемы. 
Бывают цели, достижение которых приводит к достижению 
конечных целей. В нашей экспертной системе освобождения 
одной из промежуточных целей было определение место¬ 
нахождения двери лифта. В программе планирования налога 
вы можете попытаться минимизировать представляемый к 
декларации доход; в медицинской программе - диагности¬ 
ровать волчанку но клиническим проявлениям и истории 
болезни. 

На этом уровне цели тоже выражаются как действия 
или события, но их неопределенность намеренно сокращае тся. 
Когда определены промежу точные цели, проблема распадает¬ 
ся на подзадачи. Каждая цель представляет предполагаемый 
результат, предлагаемый программой при решении частной 
проблемы. Они должны устанавливаться в начале, так чтобы 
проектировщик имел ясное представление о задачах, которые 
должна реша ть система, и о подходе к их решению. Система 
может прийти к разнообразным выводам и рекомендовать 
различные стратегии повеления, и до тех пор, пока разра¬ 
ботчик и пользователь нс придут к соглашению, какие 
события должны быть выявлены в результате этих дейст¬ 
вий, не будет никаких гарантий в том, что получено нужное 
решение. Так как задача разработчиков сос тои т в том, ч тобы 
наметить приемлемый путь к достижению этих целей- 
событий, они должны иметь конкретные представления об 
ожидаемых, ясно просматриваемых человеко-машинных 
характеристиках. 

Кроме установления желаемых результатов решения 
проблемы, промежу точная цель выполняет и другую важную 
функцию. Вследс твие своей специфической природы, она обра¬ 
зует базис для расчленения общей проблемы на иодпроблсмы, 
которые могут потребовать для своего решения отдельных 
или изолированных систем знаний. 
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Определение вспомогательных целей 


С самого начала планирошцики должны иметь ясное 
представление о вспомога/ ел ім ых целях, совместное 
достижение которых потребуется для получении желаемых 
результатов. Вновь обратимся к сценарию освобождения из 
корабля пришельцев; для того чтобы "определить место- 
нахожденис шахты лифта", сначала нужно "определить свое 
местоположение". Вспомогательными целями здесь будут 
"определение э тажа" и "определение направления север - юг". В 
нашем примере планирования налогов такие цели могут 
включать "максимизацию скидки за текущий год" и 
"максимизацию выплат с отсроченным налогом". Очевидно, 
ч то эта сталия планирования требуе т учас тия специалис та в 
предме тной области па самом раннем этапе разработки. 

Каждая вспомогательная цель предполагает содержа¬ 
ние і$ базе знаний ряда связанных задач. Например, для опре¬ 
деления направления север - юг пленник космического корабля 
инопланетян выглянет в иллюминатор, чтобы увидеть, 
откуда налает солнечный свет; одним из подходящих спосо¬ 
бов максимизации головой скидки является применение 
ме тола У ВС. 


Определение проблем 

После того как инженеры но знаниям определили цели 
экспертной системы, становятся достаточно очевидными 
типы проблем, которые предстоит решать, и способ подхода 
сис темы к их решению. 

Определив проблемы, которые предстоит реша ть систе¬ 
ме, группа разработчиков должна выяснить, возможно ли 
получение решений с помощью компьютера. Использует ли 
экспертиза, требующаяся для получения решения, выражения 
типа триплетов "объект - атрибу т - значение"? Имеются ли 
достоверные связи между объектами? Является проблема по 
своей природе четкой или недоопределенной? Мы можем 
предположить, что проблема "Болей ли пациент волчанкой?" 
решае тся с помощью компьютера, при использовании конкре т¬ 
ных анализов и перечня статистических корреляций. Но 
проблема "Правильно ли осуществляется руководство?" более 
неопределенна. 
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Кроме того, планировщик лолжен оценить, соответст¬ 
вуют ли проблемы конечным целям проекта. Отпет на вопрос 
"Кто является управляющим торговли в западном регионе?" 
не имеет практической важности. Болес полезно было бы опре- 
лелить "Кто из управляющих при реализации продукции 
получает наивысший процен т прибыли?”. 

Извлечение знаний 

После определения целей и задач системы, группа 
разработчиков сталкивается с проблемой эффективного из¬ 
влечения экспертных знаний. Наиболее очевидным методом 
является простой опрос. Интервьюирование эксперта или 
получение знаний из справочников - это прямой, но 
утомительный путь. Использование аналогий или моделей 
может значительно сократить эту работу: соберите файл 
экспертных решений, связанных с проблемами в рассматри¬ 
ваемой предметной области, затем проанализируй те главные 
правила, на которых основываются эти экспертные решения. 
Третий источник информации - прямое наблюдение или 
экспериментирование. Никому не нужен эксперт, чтобы 
установить, что "кровь красная", хотя эксперт может 
понадоби ться для определения правила: "Если кровь темно¬ 
красная, то она насыщена кислородом”. 

Передача знаний - процесс итеративный и эволюцион¬ 
ный. Вначале разработчик системы спрашивает эксперта о 
наиболее общих концепциях предметной облас ти. По мере раз¬ 
ни ти я проекта общие контуры у точняются, обрастают связя¬ 
ми и деталями. Для наглядности рассмотрим, как мог бы 
инженер по знаниям проводи ть опрос специалис та по освобож¬ 
дению пленника при создании экспертной сис темы, описанной 
в прологе: 

ИНТЕРВЬЮЕР: 


ЭКСПЕРТ: 


ИНТЕРВЬЮЕР: 


Если бы вы хо тели выбра ться из кораб¬ 
ля, как бы вы прис тупили к разработке 
плана освобождения? 

Прежде всего я бы захотел установить 
свое мес тонахождение в корабле. Затем я 
бы хо тел определи ть положение выхода 
относительно этого места. 

Как бы вы определили свое мес тонахож¬ 
дение? 
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ЭКСПЕРТ: 


Я бы узнал, па каком этаже и и какой 
части корабля - и северной или южной я 
нахожусь. 

ИНТЕРВЬЮЕР: Как бы вы определили, в северной или 

южной части корабля вы находитесь? 
ЭКСПЕРТ: Я бы попыт ался увидет ь, какой сол¬ 

нечный свет попадает в иллюминатор, 
прямой (направление па юг) или от ражен¬ 
ный (направление па север). 

Классический метод извлечения экспертных знаний - 
пройти через все ст адии процесса экспертизы, наблюдая, как в 
том или ином случае поступает эксперт. Допустим, что вы 
создаете программу для выработки рекомендаций относи¬ 
тельно снижения налогов. Сначала вам следует- изучить 
ситуации с различными демографическими и финансовыми 
характеристиками, представляющие типичные случаи. Затем 
следуе т попросит ь эксперт а рекомендова ть ст ратегию повеле¬ 
ния в каждом случае, поясняя свои рекомендации. Предполо¬ 
жим, эксперт рекомендует, во-первых, ограниченное участие в 
проекте нефтяного бурения, во-вторых, приобретение акций и, 
в-третьих, уход в отставку. Как инженеру по знаниям вам 
нужно пронаблюдать, каким образом эксперт оценивает 
проблему и приходит к заключению, далее представи ть этот 
процесс в виде объектов, атрибутов, значений и правил - 
"схемат ичного знания" предме тной област и эксперт а. 

Пример 

Аля того чтобы продемонстрировать процесс 
преобразования эксперт ных знаний is доступные для машины 
факты и правила, рассмот рим простой пример. Допустим, что 
вы - древнегреческий философ, прогуливающийся вдоль 
берега Средиземного моря. Вдруг неожиданное искривление 
времени забрасывает вас в Манхэттен 20 века. Естественно, 
как знаменитый мудрец древност и вы мгновенно ст ановит есь 
знаменитостью и ваше имя - во всех списках приглашенных 
па модные сборища, театральные вечеринки и политические 
шоу Нью-Йорка. К несчастью, вы нс имеете ни малейшего 
поня тия, надо ли надеват ь галстук, и если да, то какого цвет а. 
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Эта небольшая экспертная система прилег нам па 
помощь. Выбрав консультанта по вопросам молы, вы начина¬ 
ете извлечение экспертных знаний. Вы обнаруживаете, что 
галстук требуется, котла вы одеваете официальный косном 
или леловой костюм в рабочий лень. Если вы собираетесь 
поехать в деловом костюме па уикэпл, ваш консультант 
сообщает, ч то вы, если хоти те, може те надеть галстук, по э то 
необяза тельно. Далее эксперт объясняет, ч то если вы носи те 
па работе спортивный пиджак, то чаще всего вам следует 
палевать галстук. Но если вы одеваете спор тивный пиджак от 
случая к случаю, вряд ли тогда нужен галстук. К официаль¬ 
ному костюму ваш консультант рекомендует черную бабочку 
или белый галстук. К голубому или серому деловому костюму 
больше подойдет красный галс тук в полоску или иногда одно¬ 
тонный красный. Если костюм зеленого или коричневого 
цвета, ваш консультант по вопросам моды предлагает рыжий 
полосатый галстук, либо коричневый полосатый или, it 
крайнем случае, зеленый узорчатый галстук. Последующие 
рекомендации касаются типов и цве тов галстуков для чертах 
костюмов и серых, голубых, коричневых или зеленых 
пиджаков. 

Для ввода информации в пашу экспертную систему, 
нужно создать текстовый файл с именем rules, содержащий 
базу знаний в форме вопросов, разрешенных значений и 
правил. Ниже показана база знаний для консультаций по 
вопросам моды. 


правило!: если 

костюм = официальный 


палстьгалстук =да. 
правило2: если 

костюм =леловой и 
время =рабочий_депь 
то 

палсть_галстук=ла,кл =50. 
правилоЗ: если 

кос тюм =деловой и 
время =уикэпд 
то 

падетьгалс тук=да,кд=50. 
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пранило4: если 

косном =снортинный_нилжак и 
занятие =ра(юта 


і іалсть і алсту к =ла,кл =75. 
правило5: если 

косном =ііикакого 


палеть_галсгук=иет. 
прапилоб: если 

косном =спор гинный пилжак и 
занятие ^случайное 
то 

палетьгалс тук =ла,кл=М. 
нранило7: если 

косном =снор гинный пилжак и 
занятие =раЬота и 
время =нсчср 
го 

надеть_і але гук =ла,кл =75. 
правило8: если 

косном =официалыіый и 
паАетьіалстук =ла 
го 

галстук =чсрная_ЬаЬочка,кл =50 и 
галстук =Ьелый,кл =50. 
пранило9: если 

косном =лслоной и 
инс г пилжака =голуЬой и 
палсгь_галсі ук =да 
то 

галс тук =рыжий_в_і іолоску,кл =75 и 
галстук =краспый_олпогоппый, кл =35. 
правило9а: если 

косном =лелоной и 
цнет_пилжака=серый и 
палстьгалстук =ла 
го 

галстук =рыжий_н_полоску,кл =75 и 
галстук =красный_олпогоппый,кл =35. 
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пранилоІО: 


правилоЮа: 


ііраиилоіі: 


го 


нравило!2: 


го 


пранилоІЗ: 




если 

кос тюм =лсловой и 
ннс г_иилжака=серый и 
ііалс гь галстук =ла 

галстук =рыжий_в_полоску,кл=70 и 
галстук =коричнсвый_и_полоску,кл =50 и 
галстук =зслсный_узорчатый,кл =30. 
если 

костюм =леловой и 
нвст_пилжака=коричпевый и 
нале гьгалстук =ла 

галс тук =рыжий_і$ полоску,кд =70 и 
галс тук=коричіісві>ій_в_ііолоску,кл=50 и 
1 алстук =:»елсі іыйу ворча тый,кл =30. 
если 

кос тюм =леловой и 
цвет_ііилжака=чсрпый и 
иалетьгалстук =ла 

галс тук =красііый_в_іюлоску,кл =60 и 
желтый_в_іорошск,кл =40. 
если 

костюм =сіюртивный_ііилжак и 
ивет ішлжака =коричпсвый и 
налетьгалс тук =ла 

галстук =рыжий_олію тоііный,кл=бО и 
галстук =рыжий_в_іюлоску,кд=50 и 
галстук =коричнсвый_с_рисупком,кл =40. 
если 

костюм =спор тивпый пилжак и 
цвс і_пилжака=зслсііый и 
палетьгалсіук =ла 

галстук =рыжий_олво топпый,кл =60 и 
галстук =рыжий_в_полоску,кл =50 и 
іалс тук=коричпевый_с_рисупком,кл =40. 
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разрсиізн(костюм)=офиіі,иальный,лсловой,спортивный_пил- 
жак, никакого 

разрешзн(преми)=рабочий_лепь,уикэнд,вечер 
разреііізн(занятие)=случайпое,работа 

разрешзп(ивет пиджака) =голубой, серый, коричневый,зеленый, 
черный 

вопрос(костюм)=Какой костюм вы оденете? 
вопрос(запятие)=Чем вы заня ты? 

вонрос(цвет_пиджака)=Какого цве та пиджак мы одене те 
сегодня? 

В этом файле правил имеются предложения четырех 
типов. Первый - это правила, ко торые выражают эмпирические 
связи между объектами и значениями в базе знаний. Каждое 
правило имее т такой син таксис: 

правилом: если 

ПРЕДПОСЫЛКА 

то 

ЗАКЛЮЧЕНИЕ. 

Это предложение начинается с номера правила N, за 
которым следует двоеточие. Предпосылки и заключения 
составляют пары ОБЪЕКТ=ЗНАЧЕНИЕ. Заключение может, 
кроме того, иметь связанный с ним коэффициен т доверия в 
виде ОБЪЕКТ ^ЗНАЧЕНИЕ, кд =N. 

Второй тип перечисляет разрешенные значения для 
имени объекта: 

разреііізп(ОБЪЕКТ)=зпач1,зпач2, .,зпачМ 

Это предложение начинается с ключевого слова 
"разрешзп", за которым следует заключенное it скобки имя 
объекта. В правой части равенства перечисляются имена раз¬ 
решенных значений, разделенные запя тыми. 

Тре тий тин объявляет объек т многозначным: 
мпогозпачпый(ОБЪЕКТ) 

Вопросы имею т следующий форма т: 
вопрос(ОБЪЕКТ) =ТЕКСТ 
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Эго предложение начинается с ключевого слона 
"вопрос", за которым следует заключенное в скобки имя 
объекта. В правой части равенства записывае тся текст вопро¬ 
са, который должен бы ть задан. Если текс т содержи т в конце 
вопроси тельный знак, нс забудьте его пос тави ть. 

Обра ти те внимание, ч то все правила в файле rules окан¬ 
чиваются точкой. Точка нужна для отделения одного правила 
от другого; без нее файлы представляются программе еди¬ 
ным, довольно бессмысленным массивом символов. 

Убедитесь, что вы назвали этот текстовый файл rules и 
помес ти те его па рабочий диск. Когда вы запус ти те скомпили¬ 
рованную программу Паскаля expert, опа считает содержимое 
текстового файла rules и выведет на экран меню консульта¬ 
ции. 

И вы никогда больше не буде те испы тыва ть за трудне¬ 
ний, раздумывая, какого цвета галстук вам надеть. 



ГЛАВА 14 


Взаимодействие с существующими приложениями 

Сами по себе экспертные системы обладают ограничен¬ 
ными возможностями. Но когда мы рассма тривасм обьедине- 
ние экспертных систем с существующими компьютерными 
приложениями, в голову приходят некоторые идеи очень 
интересных применений. Трудно назвать какие-либо примене¬ 
ния персональных компьютеров, возможности которых 
нельзя бы было расширить с помощью дополнительной 
экспертизы; электронные таблицы, редак торы текстов, базы 
данных - во т минимальный перечень программ, которые мож¬ 
но сделать значительно более мощными, придав им возмож¬ 
ность имитировать решение проблем человеком. Кроме того, 
гораздо проще включить существующую информацию в экс¬ 
пертную систему из базы данных, чем создавать новые 
многочисленные данные. 

В этой главе мы приведем пример такого приложения - 
экспертная система взаимодействующая с базой данных. 
Рассмотрим систему оценки состояния здоровья, разрабо¬ 
танную нами в предыдущих главах. Эта экспертная система 
выдает свой диагноз после получения ответов пользова теля 
па несколько вопросов. Некоторые из этих вопросов касаются 
привычек проверяемого, другие - его образа жизни. Еще одна 
группа вопросов попадает в категорию истории болезни и 
статистических сведений - информации, которая может 
содержаться в компью терной базе данных. 

В другом примере экспертная система может быть 
объединена с программой элек тронной таблицы для создания 
программы "разумного кри тика", сове тчика по финансовым во¬ 
просам, способного вырабатывать рекомендации на основе на¬ 
копленной информации. Допустим, вы используе те Lotus 1-2-3 
или SupcrCalc для представления суммы скидки для приобре¬ 
тения имущества фирме. Пользуясь фактами и правилами 
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для планирования налогов, ваша "экспертная электронная 
таблица" может выбрать паилучіпий метод для каждого вида 
имущес тва вместо простого вычисления вычитаемой суммы. 

Оба эти примера требуют наличия у системы важного 
свойства: возможности экспер тной сис темы получать инфор¬ 
мацию из (райла данных независимого приложения. К сожале¬ 
нии), каждое приложение применяет свой собственный метод 
хранения данных. Экспертная система должна быть специаль¬ 
но дорабо тана для чтения внешних файлов данных. 


Использование экспертной системы 
с файлами базы данных 

Рассмотрим метод извлечения информации из (райла 
базы данных, созданного с помощью популярной системы 
управления базами данных фирмы Ashlon-Tate, dBASE III, 
чтобы проиллюстрировать вступление. В приведенном 
примере файл данных состоит из Полей для пяти имен 
объектов, использованных в нашей гипотетической программе 
определения сос тояния здоровья. Эти поля содержат данные 
о фамилии человека, возрасте, ноле, весе. Происхождении и 
расе. Мы создадим для нашей экспертной системы специаль¬ 
ный модуль, извлекающий записи, хранящиеся в этих полях в 
виде текста в коле ASCII. 

Вот как рабо т ает такая сис тема. 

Допустим, что нужные записи хранятся в файле 
SUBJECTS, созданом в dBASE II или dBASE III, со следующими 
полями: NAME, АСЕ, CENDER, WEIGHT, ORIGIN, RACE. Если 
вы хотите сами испробовать работу этой подсистемы, 
создайте файл dBASE с перечисленными полями записи. Для 
подготовки этого файла к объединению с экспертной сист емой 
выполни те следующие команды: 

1. use (имя (райла) 

2. copy to SUBJECTS delimited with ’. 

Каждая строка этого (райла будет содержать текст 
одной записи. Поля записи заключены и апострофы и разде¬ 
лены занятіями. Например, файл SUBJECTS может содержат ь 
следующие т ипичные записи: 
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*Салли Шепарл\’40’,’ж’,’1 10’,’с_амер’,’еіфоисоилп’ 

’Робер г Морга11’,’25’,’м’,’150’,’срели:1см1|’,’||егроилп’ 

*Вики ШнариѴ65Ѵж’,’90’,’с_амерѴеіфопеоилп’ 

Если н пашем распоряжении нет dBASE III (или dBASE 
II), просто создайте файл п этом формате, используя 
текстоиый редактор. 

Модуль, приведенный в качестве примера в настоящей 
главе, позволяет пользователю до начала консультации с 
экспертной системой ввести имя человека. Система в ответ 
вызывает файл с именем SUBJECTS и ищет в нем статисти¬ 
ческие данные об указапом лице. Затем программа поле за 
полем вводи т соответствующие данные в базу знаний. Когда 
все значения считаны, начинается обычная консультация. 
Однако система не будет запрашивать у оператора значения, 
которые уже выбраны из файла данных. 

Управление динамическими данными 

Прежде чем создавать этот дополни тельный модуль, 
давайте рассмотрим более сложный пример. Допустим, вы 
являетесь консультантом в бюро путешествий, создающим 
экспертную систему для рекомендаций наилучшего способа 
воздушного сообщения между двумя любыми городами, учи¬ 
тывающую надежность, стоимость, питание и число ос тано¬ 
вок. Записи в файле такого типа, по-видимому, будут 
постоянно меня ться, отражая текущие изменения расписания 
полетов, стоимости пассажирских перевозок и наличия мест в 
каждом классе. В то время как запись о медицинских 
показаниях может содержать только одно значение для пола 
или расы, запись о воздушных перевозках будет подвержена 
постоянным изменениям при продаже билетов, росте или 
снижении цеп и отмене или переносе рейсов. При непо¬ 
средственном взаимодействии экспертной системы с базой 
данных, ноу-хау программы становится таким же 
динамичным, как и у экспер та. 

Допустим, файл воздушных сообщений содержит сле¬ 
дующие поля: САМОЛЕТ, ПАРА ГОРОДОВ, П МЕСТ, С МЕСТ, 
П ЦЕНА, ПИТАНИЕ, ОСТАНОВКИ. Буква П в имени поля 
обозначает "первый класс", а С - "салоп”. Записанный в 
формате dBASE, файл може т выглядеть примерно так: 
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’АА’,’СФОМАЙ’,’4П’,’4С’,’475’,’305ѴЗ’,’Г 

’иА’,’Б.УФАТЛ’,’4П’,’0С’,’385,’,295’,’О’,’()’ 

’Т\Ѵ’,’ТУЛСИЭ’,’4П’,’4С’,’320’,’245’,’У’,’2’ 


Записи должны быть введены в файл с использовани¬ 
ем имен значений, попятных для экспертной системы; или, 
наоборот, имена, присвоенные значениям, должны соот¬ 
ветствовать элементам файла данных. Например, если 
экспертная система применяет коды аэропортов, такие, как 
СФО для Сан-Франциско или МАЙ для Майами, то в поле 
ПАРАГОРОАОВ следует ввести СФОМАЙ, а не Сан- 
Франциско - Майами. Аналогично, если в базе данных слово 
"завтрак" обозначается символом 3, одним из разрешенных 
значений поля ПИТАНИЕ будет 3, а не ЗАВТРАК. 

В рассмотренном примере кодовые обозначения исполь¬ 
зованы для авиакомпаний (АА для Американской, UA для 
Объединенной, TW для TWA) и для аэропортов. Первое поле 
каждой записи отведено для авиакомпании, за тем иду т пары 
городов (коды для аэропортов "отправления" и "прибытия"), 
наличие мест в первом классе, наличие мест в общем салоне, 
питание и число остановок. Когда экспертная система 
считывает поле для Объединенной компании, опа должна 
опозна ть 4П как разрешенное значение объек та П МЕСТ, а ОС! 
как разрешенное значение СМЕСТ. Вводя в начале 
консультации тип самолета, вы должны вместо полного 
наименования набирать на клавиатуре коды: АА, UA или TW. 

Программные модули 

Этот модуль ищет текстовый файл с именем 
SUBJECTS, содержащий записи, которые будут использова ться 
в экспертной системе. Наш пример предназначен для 
применения в системе оценки состояния здоровья, рассмот¬ 
ренной в предыдущих главах. Процедура IMPORT сначала 
запрашивае т у опера тора имя пациен та. Программа счи тывае т 
текст, введенный с клавиа туры, обращае тся к файлу SUBJECTS 
и находит запись, содержащую заданное имя. 

Затем процедура начинает читать поля найденной за¬ 
писи файла. Предложение CASE 2 добавляет второе поле 
(возраст человека) в базу знаний. Предложение CASE 3 
добавляет тре тье поле (пол). Программа продолжае т рабо та ть 
таким образом до тех пор, пока нс будет достигнута метка 
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конца файла. Если запись, содержащая указанное имя, не 
найдена, программа выводит на экран сообщение "имя нс 
найдено”. 

PROCEDURE import; 

VAR 

dbase:Text; 

dfield, 

name, 

word:word_string; 

Iine:line_slring; 

done:boolean; 

counter:integer; 

BEGIN 

writeln; 

writeln(’BBeAH re фамилию’); 

readln(name); 

assign(dbase,’subjects’); 

reset(dbase); 

word:=”; 

writeln; 

WHILE ((NOT Eof(dbase))AND(wordoname)) DO 
BEGIN 

readln(dbase,line); 

done: =find_word(line,l,word); 

word:=(copy(word,2,length(word)-2) 

END; 

IF (word =name) THEN 
BEGIN 

done:=FALSE; 
counter: =1; 

WHILE (done=FALSE) DO 
BEGIN 

done: =find_word(line,counter,word); 
word:=copy(word,2,length(word)-2); 

CASE counter OF 
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2: 

BEGIN 

d_f ield: =’і$озраст’; 
add_object(d_field,word); 
add_cf(d_ficld,word, DEFINITE) 
END; 

3: 

BEGIN 

d_field:=’noA’; 
add_object(d_f ield,word); 
add_cf(d_field,word,DEFINITE); 
END; 

4: 

BEGIN 

d_field:=’nec’; 

add_objcct(d_ficld,word); 

add_cf(d_ficld,word,DEFINITE); 

END; 

5: 

BEGIN 

dficld: =’i іроисхожление’; 
add_object(d_f ield,word); 
add_cf(d_ficld,word,DEFINITE): 
END; 

6: 

BEGIN 

d_field:=’paca’; 

add_object(d_field,word); 

add_cf(d_ricld,word,DEFINITE); 

END 

END; 

counler: =counter+1 

END 

END 

ELSE wrileln(4j)aMHAMH не найлспа.’) 


END; 



ПРИЛОЖЕНИЯ 


ПРИЛОЖЕНИЕ А 

ПОЛНЫЙ ЛИСТИНГ ОСНОВНОЙ ПРОГРАММЫ 

Полная программа expert считывает всю базу знаний из 
текстового файла rules, находящегося па принимаемом по 
умолчанию запоминающем устройстве. Следовательно, раз¬ 
личные возможнос ти, ко торые предлагаю тся в меню предыду¬ 
щих версий основной программы, рассмотренных в э той книге, 
становятся больше не нужны. Подготовьте базу знаний, сле¬ 
дуя инструкциям гл. 13 "Использование экспертах сис тем”. 

Приведенный ниже листинг включае т в себя все необ¬ 
ходимые описания типов и глобальных переменных. Однако в 
нем не дублируются функции и процедуры, содержащиеся в 
предшествующих главах. 

Как ввести программу 

Программу на Паскале можно предс тави ть как сос тоя¬ 
щую из трех отдельных час тей: 

1. Определения типов и глобальных переменных. 

2. Функции и процедуры. 

3. Тело основной программы. 

Сначала вам нужно ввес ти заголовок программы: 

Programm Expert(Input,Oulpul,rules,dbase); 

Прежде чем вводить какие-либо модули, наберите опре¬ 
деления типов и глобальных переменных. Эго - части лис¬ 
тинга, идущие иол заголовками CONST, TYPE и VAR. Затем 
добавьте модули функций и процедур в том порядке, в каком 
они перечисленія в этой книге. Будьте внимательны, с тарай¬ 
тесь не пропустить какие-нибудь модули, так как вновь 
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шюдимые подпрограммы часто обращались к модулям, нне- 
денным ранее. 

В заключение наберите текст оспоішой программы и 
том виде в каком опа представлена в данном приложении - 
начиная с заголовка BEGIN и кончая последним предло¬ 
жением END. Убедитесь, что последним введенным символом 
является точка и не перепутайте два соседних апострофа с 
кавычками. 


Program Expert(Input,Output,rules,dbase); 


CONST 

WORD MAX =40; 
LIN EM AX =80; - 
COLON 
PERIOD 
COMMA =7; 
SPACE =’ 
EOUALS=’=’; 
DEFINITE=100; 


. wax i 


TYPE 


word_string=string|WORD_MAX]; 
line_string=string[LlNE_MAX); - 
ѵаІис_рІг= л ѵа1ие; - ij/a 
legal_ptr =/4 legal_value; 
object ptr ^object; - уцуТГАІ 


- ІЛмі И 

Tnh. сТІуэ'Кіі 

Ht, «Й 

Hi, 


SuwL И. 


value =RECORD 

name:word_string; t< 'fj 

cert:integer; 

setby:word string; 

nexl:value_~ptr - JM С.и*и»^ к 
END; 


legal_value=RECORD 

name:word_string; 

ncxLlegalptr 

END; 
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object =RECORD < 

name:word_string; й *■*<.( Cl / : ■ t( Q 

questiondineslring; 

mullivald:boolean; 

legallistilegalplr; 

sought:boolean; 

value_list:value_plr; ИX е }' ifrW 
next:object_ptr uiu ‘ 


premptr = л ргеш; 
conptr = л соп; 
ш1е_р1г= л ги1е; 

prem =RECORD 

objectrwordstri ng; 
value:word_string; 
next:prem_ptr 
END; 


con=RECORD 

object:word_stri ng; 

value:word_string; 

cert:integer; 

n<jxl:con_ptr 

END; 


rule=RECORD 

name:word_slring; 

prenrpremptr; 

con:con_ptr; 

next:rule_plr 

END; 


VAR 

choice, 

maxchoice, 

choice_lim:integer; 

lasttry, 

top_fact:object_ptr; 

sword, 

sobject, 


152 



s_value:word_string; 

s_line:line_string; 

s_cf:integer; 

lop_rulc:rule_ptr; 

rules:Text; 

explain:boolean; 


BEGIN 

last_try:=NIL; 

lop_fact:=N!L; 

choice: =0; 

import; 

readfile; 

wrileln; 

writeln; 

writcln(’Xo ги ге ли вы получить объяснение хола вывода?’); 
writeln(’l - да’); 
wrileln(’2 - нет’); 
readln(choice); 

IF (choice =1) THEN explain:=TRUE 

ELSE expIain:=FALSE; 

writeln(’KaKOBa ваша цель ?’); 

шгие1п(’(Введите:(ОБЪЕКТ))’); 

readln(sobject); 

pursue(sobject); 

presult(sobject) 

END. 




ПРИЛОЖЕНИЕ Б 


ПЕРЕНОСИМОСТЬ 


Изменения для работы программы 
на APPLE 1.1 или UCSD - Паскале 


В UCSD - Паскале пет функции VAL, входящей в функ¬ 
цию GETCF, преобразующую строку в целое число, поэтому 
она должна быть опущена. Это не позволит пользователю 
применять в выражениях коэффициента доверия числа. 
Вместо них следует использовать пять ключевых слов: 


BEGIN 

trim:=copy(f_line,st_right+3,length(f_line)-st_right-2); 

val (t rim, cf,resplt) ; 

IF (result>0) THEN cf:=DEFlNITE; 


Замените подчеркнутые строки на следующую: 
cf:=DEFINITE; 

В процедуре READFILE команду ASSIGN следует 
опустить, а команду RESET - изменить. 


BEGIN 

\ѵгііеІп(’Чтение файла, содержащего правила’); 

3S si gn(rules,’rples ’); 

reset(rules,’rules); 

Удалите подчеркнутую строку. 

В процедуре IMPORT команду ASSIGN следуе т опус¬ 
тить, а команду RESET - изменить. 
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BEGIN 

writcln; 

\ѵгіісІп(’Ввсли те фамилию’); 
rcadln(name); 
assi gn(dbase.’subjects’); 
rcsct(dbasc,’subjccls); 

Удалите подчеркнутую строку. 


ПРИЛОЖЕНИЕ В 
ПРИМЕРЫ БАЗ ЗНАНИЙ 

Ниже и качестне примера приведены две Базы знаний, 
которые можно использовать с основной программой. Первая 
выдает рекомендации по конфигурации деловой компьютер¬ 
ной системы па основе информации об оЬласти применения, 
позволяя пользователю принять или отвергнуть предло¬ 
жения сис темы. Вторая предназначена для выработки советов 
на основе оценки состояния здоровья, описанной в 
предыдущих главах. Она определяет предполагаемую 
продолжительность жизни человека на основании полученной 
о нем информации. Советы, получаемые с помощью этих 
сис тем, служа т только демонстрационным целям. 

Несмотря на большое число правил в каждой системе, 
иногда может оказаться, что системе не хва тает информации 
для выдачи рекомендаций. 

Конфигурация компьютерной системы 

Инструкции: 

1. Напечатайте базу знаний и сохраните ее в файле с 
именем "rules". 

2. Запустите программу экспертной системы и укажи те 
цель "выполнено”. 
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База знаний конфигурации компьютерной системы 

разреіпзп(тип)=произнолстно, распределение 

разреш зп(тип)=получепие,продажа,сервис,финансы 

разрсіпзн(пр_кат)=иіілуссрин, ширпотреб 

разретзіі(ипл_кат)=тяж_пром,лсг_пром 

разрешзн(іпирп_ка т)=прол_пи тапия,олсжла,элек троприборы 

разреш зп(ширн_кат)=мсбсль,прочее 

ра зреш зн(пазп_кат)=оптоная_торг,транспорт 

разрешзіі(ііазп_кат)=нассажиры,имііорт_экспорт 

ра зреш зп(опт_кат)=склал,без_ск лада 

разрсшзп(траисп_кат)=позл,жсл_лор,антомоб,ноли 

разрсшзн(пасс_кат)=самолет,поезд,такси,автобус,судно 

разрсшзн(пр_кат)=сельхоз,пол_ископасмыс 

разреш зн(сельх_кат)=скот,товар,спец 

разрсіпзн(иск_кат)=нсфть газ,уголь,мипералч,прочее 

разрешзн(прол_кат)=обіц, продукты,спец 

разрешзп(серп_кат)=ирач_лантист,бухгалтер,іорист 

ра зреш зн(серп_кат)=рекл_агеі тс,архитектор 

разреш зп(фип_кат)=бапки,нслвижимость, 

разреш зп(фин_кат)=иивсстип.ии,консультации 

разрешзн(голоиой_оборот)=снышс_5млп,свышс_10млн 

разрешзн(головой_оборот)=свышс_20млн,лругой 

ра зрешзп(число_служ) =меіі_100,100-500, бол 500 
разреш зн(число_клиент) =меп_ 10,10-25,25-100 
разреіизн(число_клиснт)=100-500,бол_500 
разреш зп(число_постаніцикон)=меп_10,10-25,25-100 
ра зреш зп(число_поставш.иков) = 100-500,бол 500 
разрешзп(срслп_оборот)=меп_10,10-100,100-1000 
ра зреш зі і (с редпоборот)=1000-10000,бол_ 10000 
разрешзн(ііозраст_фирмы)=мсп_1_г,І-3_г,3-І0_л 
ра зреш зн(нозраст_фирмы) =10-50_л,бол_50_л 
разреш зп(масштаб)=горол,региои,страпа 
разрешзн(масштаб)=континснт,мир 
разреш зп(перп_ком)=да, нет 
разреш зн(цсль)=обіцая, специальна я 

разреш зн(сп_цсль)=обш.ис,расчсты,нолготоика_тскстон 
разреш зп(сп_цель)=управл_ торгом, разработка, плапиропапис 
ра зреш зн(сп_расч)=зап_расч, увольнения, зарплата 
разреш зп(сп_расч)=обш._рсгистр,управл_ипиест 
разрсшзп(сп_тскст)=коррсспопл,записи, распоряжения 
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ра зрсіизп(сіі текст) =черновой,профессиональный 
разрешзп(сп_разр)=пролукция, предложения 
ра зренізп(сп_разр)=рсклама, представление 
разрешзн(макс_цена)=мсн_5000,5000-10000,болІОООО 

нонрос(тиіі)=Какого типа бизнесом вы занимае тесь? 
нопрос(нр_кат)=Какой тип продукции вы производи те? 
вопрос(ипд_кат)=Какие индустриальные товары вы 
выпускаете? 

воіірос(піирп_ка т)=Какого типа ширпотреб вы выпускае те? 
попрос(назн_кат)=В какой области промышленности вы 
работаете? 

вопрос(опт_кат)=Каков способ оп товой торговли? 
вопрос(траіісп_ка т)=Какой используется транспорт? 
вопрос(пасс_кат)=Какой вид пассажирского транспорта? 
вопрос(пр_кат)=В каком виде производс тва вы заня ты? 
нопрос(сельх_кат)=Какой вид сельского хозяйства? 
вопрос(иск_кат)=Какого типа полезные ископаемые? 
вопрос(прод_кат)=Какие у вас магазины? 
вопрос(ссрв_кат)=Каков род ваших заня тий? 
вопрос(фин_ка т)=Каков род ваших заня тий? 

нопрос(срслп_оборот)=Каков ваш средний оборот? 
вопрос(число_служ)=Каково число ваших служащих? 
иопрос(число_клиснт)=Сколько у вас клиен тов в гол? 
вопрос(число_поставщиков)=Сколько у вас пос тавщиков? 
вопрос(срслп_оборот)=Каков ваш средний оборо т? 
вопрос(возрас т_(1)ирмы)=Сколько времени вы веде те дело? 
вопрос(масштаб)=Вашим ріяпком является: 
воіфос(перв_ком)=Это ваш первіяй компью тер? 
вопрос(исль)=Оп предназначен для специальной цели? 
вопрос(сп_п.ель)=Аля какого применения он предназначен? 
вопрос(сп_расч)=Для каких расчетов? 
вопрос(сп текс т)=Аля подготовки каких текс тов? 
вопрос(сп_разр)=Для каких разработок? 
вопрос(макс_испа)=Сколько вы можете по тра ти ть? 
вопрос(выполнено) =Конси консультации - НАЖМИТЕ ENTER 

многозначпый(выполнено) 
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правило!): если 

запуск =ла 
то 

■наполнено =да. 

нопрос( запуск) =Начало системы "ВЫБОР". НАЖМИТЕ ENTER 

правило 1: если 

ТИІ 1=11 рои зволстио И 
пр_кат=иіідустрия и 
иплка г=найлено 
то 

выполнено =да. 

правило2: если 

тип=прои зволстио и 
пр_кат=шириотре6 и 
ширп_кат=пайдено 
то 

выполнено =да. 

правилоЗ: если 

гип=распрслеленис и 
і іазіі_кат =оіітоі $а я горі■ и 
оп е ка г=иайдено 
го 

выполнено=да. 

правило4: если 

гии=распрелелепис и 
назп каг=і ранспор г и 
1 рапепкат =найдено 
то 

выполнено =да. 

правило. 1 ): если 

гип=распрслеление и 
пази ка 1 =пассажиры и 
пасскаг=пайлепо 

выполнено =ла. 
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пранилоб: если 

тип=иолучеиие и 
пр_кат=сельхоз и 
ссльхкат =ііайлепо 

выполнено =ла. 

правило7: если 

тип=получение и 
пр_кат=пол_ископаемые и 
иекка г=найдсио 
то 

выполпепо=ла. 

пранило8: если 

тин=пролажа и 
і іролкат =найлено 
то 

ныііоднсно=ла. 

правило*): если 

тип=ссрвис и 
соро ка г =найлеио 
го 

выполнено =ла. 

правило 10: если 

тип ^финансы и 
финкаг=найлено 

выполнено =ла. 

правилоіі: если 

числослуж =найлено 
го 

ві»іполнено=ла. 

правилоІ2: если 

числоклисн г=найдено 
ТО 

выполнено =ла. 
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пранилоІЗ: если 

числопрс ‘1 аізщикон=пайлеію 
то 

выполнено =ла. 

правило14: если 

срелі і оборо г =пайлеі іо 
то 

выполнено =ла. 

правило15: если 

вовраст -фирмы =пайлсио 
то 

выполнено =ла. 

правило 16: если 

масштаб =пайлспо 

выполнено =ла. 

нравилоП: если 

первком =пайлено 
то 

выполнено =ла. 

правило18: если 

сп_нсль=расче гы и 
спрасчет -найлсно 
то 

выполпено=ла. 
правило19: если 

сіі_иель=полготовка_текстов и 
сі і текст =найлсно 
то 

выполнено =ла. 

правило20: если 

си_нель=разраЬо гка и 
сп_ра:зр=пайлепо 
то 

вынолпспо=ла. 
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пранило21: если 

максисна =найлсно 
то 

выполнено =ла. 

правило22: если 

числослуж =100-500 

чисел =6ольшое. 

правило23: если 

числослуж =6ол_500 

чисел ={)олыное. 

правило24: если 

числослуж =мен_100 
го 

чис_сл =не6ольшое. 

пранило25: если 

максцепа =5000-10000 и 
п1=ла 
то 

цну =xt. 

вонрос(п1)=Я преллагаіо компьютер XT, вас устраивает? 
ра зреш зн(пі) =ла,нет 

нравило26: если 

сп_иель=о6іцие и 
макс_иепа=Ьол_10000 и 
п1а=ла 
то 

цну =at. 

вопрос(п1а)=Я преллагаіо компьютер АТ, вас устраивает 
ра зреш зн(п1 а) =ла,нст 


6 Заказ №852 
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прапило27: если 
п lb -да 
го 

іиіу=рс. 

поирос(п1Ь)=Я предлагаю компьютер PC, нас устраивает? 
разрешзн(піЬ)=ла,ііет 

правило28: если 

головой_оЬорот=сиыше_20млн и 

сп_исль=расчеты и 

н2=ла 


осинами ть=40м_тиерл_диск. 
пранило29: если 

1 одовойоЬорот =свыіне_20млі і и 

сп_п.ель=разраЬотка и 

и2=да 

• то 

Оси памить=40м тверлдиск. 

попрос(п2)=Я предлагаю т вердый диск на 40 м, вас устраивает? 
разреіпзи(п2)=ла,иет 

правилоЗО: если 

годовойоЬоро г =свыше_ 1 Ом лн и 
сп_цель=расчеты и 
пЗ=ла 
то 

осп_памить=20м_т верлдиск. 

правилоЗІ: если 

число клиен г=Ьол_5()0 и 
сп_цель=управл_т орг и 
пЗ=ла 
то 

оен памит ь=20м гверл диск. 

вопрос(пЗ)=Я предлагаю т вердый диск па 20 м, вас уст раивает ? 
разрсшзн(пЗ)=ла,нс г 
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правило32: если 

тип=финансы и 
и4=ла 
то 

память =512К. 

праиилоЗЗ: если 

сн_цель=планироцанис и 
и4=ла 
го 

память =512К. 

правило34: если 

сп_пель=разработка и 
п4=ла 


память =512К. 

вопрос(п4)=Я предлагаю машину 512К, согласны? 
ра зреш зі і(і і4) =да,нет 

правило35: если 

сп_цель=разра6отка и 
макс_цепа=бол_10000 и 
п5 =ла и 
п6=ла 
то 

пло ттер =6олыпой_цветной и 
мопитор =выс_разрсш_цвегной. 

вопрос(п5)=Я предлагаю большой цветной пло ттер, согласны? 
разрешзн(п5)=ла,иет 

правилоЗб: если 

сп_иель=разработка и 
макс_цена=6ол_10000 и 
п6=ла и 


плоттер=малый_цветной и 
монитор =выс_разреш_цветпой. 


6* 
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ноіірос(п7)=Я предлагаю малый цветной плоттер, согласны? 
разрешзіі(п7)=ла,нет 


правило37: если 

тип=сервис и 
сери_кат=рекл_агснт и 
макс_цепа=6ол_ШЮ0 и 
п6=ла 

монитор =выс_разреш_цветной. 


правило38: если 

тип=сервис и 
серв_кат=архитектор и 
макс_цена=6ол_10000 и 
п6=ла 
то 

монитор =выс_разреш_цветной. 


вопрос(п6)=Я предлагаю цве тной мони тор выс.раз, согласны? 
ра зреш зн(і іб) =да,нет 


правило39: если 

головой оборот =свышс_5млн и 
сн_цель=расчеты и 
и8=ла 
то 

осн_намять=10м_тверл_лиск. 

нравило40: если 

макс цепа =5000-10000 и 
п8 =ла 
то 

оен памя ть=10м тверл диск. 

вопрос(п8)=Я предлагаю твердый диск на 10 м, вас устраивае т? 
ра зреш зн(н8) =да,нет 
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нранило41: если 

сн_нель=расчеты и 
іі9=да 
то 

по =общее. 

вопрос(и9)=Я предлагаю общее прогр. обеспечение, согласны 
ра зреш зн(н9) =да,нет 


правило42: если 
нШ=ла 
го 

память =256К. 


правило43: если 

цпу=найдено 
го 

выполнено =ла. 


правило44: если 

память =найдено 
то 


выполнено =да. 


правило45: если 

оснпамягь=найдено 
го 

выполнено =да. 

правило46: если 

архивппам =найдсно 

выполнено =ла. 

правило47: если 

монитор =і іайдсно 
то 

выполнено =да. 
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правило48: если 

принтер =пайлено 

го ' 

выполнено =да. 


правило49: если 

по=найлсио 

то 


выполнено =ла. 


правилобО: если 

\ѵр=найлено 

го 


выполнено =ла. 


правилобі: если 

<1Ь=найлено 

то 


вынолнено=да. 


правило52: если 

систплан =найлено 
го 


выполнено =ла. 


правилобЗ: если 

графсис г =пайлено 
го 

выполнено =да. 

вопрос(п1())=Я прсллагак) машину с 256К, согласны 
разреін зн ( 11 10) =ла,нет 

правило54: если 
п 11 =ла 


Осипами гь=флоппи-лиск. 

вопрос(п11)=Я предлагаю флоппи-диск, .согласны? 
разрешзн(п 11) =да,нет 
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ііравило55: если 

осн_память=40м тверл диск 
п12=ла 


и 


архиішііами і ь=магп_лен га. 

і!оіірос(и І2)=Я предлагаю архив на магии гной лен те, согласны? 
разрешзн(п12)=ла,нет 

праиило56: если 

оен па м я г ь -40м_тверлли с к и 
п!3=ла 


а р xij вн_п амяіь =флоппи-диск. 

вопрос(п12)=Я предлагаю архив на флоппи-диске, согласны? 
ра:фсшзп(п12)=ла,нст 

правило57: если 
п14=да 

ІО 

монитор =моно_выс_разр. 

вопрос(п14)=Я предлагаю монитор моно с выс. разр., согласны? 
разреиізн(п14)=да,ііет 

нравило58: если 

сп_іісль=подго говка гекс гор и 
сп_тскст=распоряжепия и 
п15=ла 
то 

принтер буквенный. 
правило59: если 

сп иел ь =поді о говка_ і€кс гов и 
сп текст-коррсспонд и 
п15=ла 
го 

принтер -буквенный. 

вопрос(п15)^Я предлагаю буквенный принтер, согласны? 
ра зреш зн (п 15) =да,нет 
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правилобО: если 
п16=ла 
го 

принтер =матричный. 

вопрос(п16)=Я преллагаю ма тричный прин тер, согласны 
разреіизн(н16)=ла,нет 


праиилобі: если 

сп_цель=расчеты и 
п17=ла 
то 

по=спец. 


правило62: если 

сп_цель=о6щис и 
п17=ла 
то 

по=снец. 

иопрос(п17)=Я преллагаю специальное ПО, согласны? 
разрешзн(н17)=ла,нет 


правилобЗ: если 

сп_цель=о6щие и 
п18=ла 
то 

лѵрсист =моіцпая. 


правило64: если 

сі іцел ь =і юді о товка тскс і'ов и 
п18=ла 
то 

шр_сист=моіцпая. 

вопрос(п18)=Я предлагаю релак тор текс тов, согласны? 
разрсшзн(п 18) =ла,пет 
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пранило65: если 

сіі_цель=упрапл торг и 
п19=ла 
то 

ёЬ_сисі'=мош.ная. 

прапилобб: если 

сп_цель=упраил_горг и 
п19=да 
то 

d Ь_еи с г = м они і а я . 

попрос(п19)=Я иреллагаіо мощную СУБД, согласны? 
разрсшзн(п19)=да,пет 

прашіло67: если 

сп_цель=о6щие и 
п20=ла 
то 

db_CHCT=upoc гая. 

нопрос(іі20)=Я предлагаю прос тую СУБД, согласны? 
ра зреш зн(п20) =ла,не г 

праиилоб8: если 

db cHC г=файлоная и 
п21 =ла 

\ѵр_сист=простая и 
графеие г=просгая. 

вопрос(п21)=Я предлагаю прос той графим, паке т, согласны? 
разреіпзн(п21) =да,нег 

нранило69: если 

плоттер =пайден и 
п22=да 
то 

граф_сист=моіцная. 

нопрос(п22)=Я предлагаю мощный графим, пакет, согласны? 
ра зреш зн (і і22) =да,нет 
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пранило70: если 

сн_п.ель=планирование и 
п23=ла 
то 

сист_нлан=электронная_таблица. 

нравило71: если 

сн_цель=общис и 
п23=ла 
то 

систплан =электронна я таблица. 

вопрос(п23)=Я предлагаю элек гропную таблицу, согласны? 
разрешзн(п23)=ла,нет 

попрос(п.пу)=тип компьютера неизвестен, НАЖМИТЕ ENTER 
вопрос(память)=размср памяти неизвестен, НАЖМИТЕ 
ENTER 

воирос(осн_память)=осн. память неизвестна, НАЖМИТЕ 
ENTER 

вопрос(архив)=архивп. память неизиестна, НАЖМИТЕ ENTER 
вопрос(мопи юр)=монитор неизвестен, НАЖМИТЕ ENTER 
нопрос(принтер)=прин гер неизвестен, НАЖМИТЕ ENTER 
вопрос(ио)=система ПО неизвестна, НАЖМИТЕ ENTER 
воирос(\ѵр_сист)=релактор текста неизвестен, НАЖМИТЕ 
ENTER 

uoiipoc(db_CHc і)=СУБЛ неизвестна, НАЖМИТЕ ENTER 
попрос(сист_план)=элскт. табл. неизвестна, НАЖМИТЕ 
ENTER 

вопрос(граф_сисс)=граф. система неизвестна, НАЖМИТЕ 
ENTER 

вопрос(нлоттер)=нлоттер неизвестен, НАЖМИТЕ ENTER 

Пример рабо ты базы знаний 
конфигуратора компьютерной сис темы 

Какова ваша цель? 

(Введите (ОБЪЕКТ)) 

выполнено 

Начало сис темы ВЫБОР". НАЖМИТЕ ENTER 
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Какого типа бизнесом им занимаетесь? 

1. произнолстио 

2. распределение 

3. получение 

4. продажа 

5. сернис 

6. финансы 
1 

Какой тин продукции вы производите? 

1. индус трия 

2. ширпо треб 
2 

Какого типа ширпо треб вы выпускае те? 

1. прол питапия 

2. одежда 

3. электроприборы 

4. мебель 

5. прочее 
2 

Каково число ваших служащих? 

1. мен ІОО 

2. 100-500 

3. бол_500 


Сколько у вас клиентов в год? 

1. мен ІО 

2. 10-25 

3. 25-100 

4. 100-500 

5. бол_500 
2 

Сколько у вас поставщиков? 

1. мсп ІО 

2. 10-25 

3. 25-100 
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4. НЮ-500 

5. бол 500 


Каком ваш средний оборот? 

1. мен_10 

2. 10-100 

3 . 100-1000 

4. 1000-10000 

5. бол ІОООО 
2 

Сколько времени вы ведете дело? 

1. мен і г 

2. 1-3_г 

3. 3-10_л 

4. 10-50_л 

5. бол_50_л 
1 

Вашим рынком является: 

1. город 

2. регион 

3. страна 

4. континент 

5. мир 
3 

Это ваш первый компьютер? 

1. да 

2. нет 
2 

Для какого применения он предназначен 

1. общее 

2. расчеты 

3. подго говка текс том 

4. унравлторгоіз 

5. разработка 

6. планирование 

7. 
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Сколько мы можете потрати ть? 

1. меп_5000 

2. 5000-10000 

3. бол_10000 
2 

Я предлагаю компьютер XT, вас устраивае т? 

1. да 

2. нет 


Я предлагаю машину с 256К, согласны? 

1. да 

2. нет 


Каков ваш головой оборо т? 

1. свыіііе_5млп 

2. свышеІОмлн 

3. свышс_20млп 

4. другой 
2 

Я предлагаю твердый диск па 10 м, вас ус траи&ает? 

1. да 

2. нет 


архивп. памя ть неизвестна, НАЖМИТЕ ENTER 

Я предлагаю мони тор моно с уыс. раар., согласны? 

1. да 

2. нет 

1 

Я предлагаю ма тричный прин тер, согласны? 

1. да 

2. нет 


173 



Я предлагаю специальное ПО, согласны? 

1. ла 

2. нет 


Я предлагаю редактор текстов, согласим? 

1. да 

2. нет 

1 

Я предлагаю простую СУБД, согласны? 

1. да 

2. нет 


Я предлагаю электронную таблицу, согласны ? 

1. да 

2. нет 

1 

плоттер неизвестен, НАЖМИТЕ ENTER 

г раф, система неизвестна, НАЖМИТЕ ENTER 

Конец консультации - НАЖМИТЕ ENTER 

РЕЗУЛЬТАТ КОНСУЛЬТАЦИИ: 
выполнено =ла, кд =100 

КОНЕЦ КОНСУЛЬТАЦИИ 


Оценка состояния здоровья 


Инструкции: 

1. Напечатайте базу знаний и сохрани те 
именем "rules". 

2. Запустите программу экспертной систсмі 
цель "продолжительность". 


е і$ файле с 
>і и укажите 
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База знаний оценки состоянии здоровья 


разреінзн(старт)=ла, выход 

ра зреш зн(вес) =55_или_мепыпс,55-85,85_или_болыпс 
разрешзп(сложепие)=мелкое,к рунное 
разрешзн(жиры)=порма,излишек 
разрешзн(холес серин) =норма,излишек 
ра зреш зн (соль) =і юрма.и злишек 

разрешзн(раса)=негроилпая,евроиеоилпая,моноголоилная 
разрешзн(происхожленис)=амсрикапское,срели земноморское 
разрешзн(иотреблепие_алкоголя)=не_упо греЬляет, умеренное 
разрешзн(потребление_алкоголя)=чрезмернос 
разрешзн(нол)=м,ж 

разрсшзн(возраст)=25_или_меныііе,25_55,55_или_6олыпе 
ра зреш зн(характер)-агрессивный,мягкий 
разрешзн(курение)=ла,нет 

вопрос(старт)=Вы готовы нача ть? 

вонрос(нрололжителыіость)=ИЗВИНИТЕ, ОТВЕТ НЕИЗВЕС¬ 
ТЕН - НАЖМИТЕ ENTER 
вонрос(вес)=Каков вес испытуемого? 
вопрос(сложенис)=Телосложсние: 
вонрос(жиры)=По гре6лсние ненасыщенных жиров: 
вонрос(холестерин) =ПотреЬленис животных жиров: 
вонрос(соль) Потребление соли: 
вопрос(раса)=Какой расы испытуемый? 

вопрос(нроисхожление)=Каково происхождение испытуемого? 
иоіірос(потре6ленис_алкоголи)=Потрс(»ленис алкоголя: 
вопрос(пол)=Какого пола испытуемый? 
вопрос( возраст) =Сколько иенытуемому ле т? 
вопрос(курение)-Испычуемый кури т? 
вопрос(харакчер)=Харак сер иенычуемого: 

правилоі: если 

о тноси тельный_вес=нормальный 
то 

зн=ла. 


правило2: если 

относи тельпый вес =ниже_пормы 
то 

зн=да. 
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правилоЗ: если 

коронарныйриск =ниже_срелнего 
то 

серлзаб =низкий. 

правило4: если 

коронарныйриск =срелний 
то 

серлзаб =пизкий. 


правило5: если 
старт =ла 
то 

серлзаб =иной. 

нравилоб: если 

возраст =25_или_меныне и 
пол =ж 
то 

основнаяирололжительность =72. 

правило7: если 

возраст =25_или_меньше и 
пол =м 
то 

основная_прололжителыюсть=67. 


правило8: если 

возраст =25-55 и 
пол =ж 

основная_прололжителыіость=67. 

правило9: если 

возраст =25-55 и 
пол=м 
то 

основнаяирололжительность =62. 
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правилоІО: если 

возраст =55_или_болыне и 
пол=ж 
то 

осп овна япродолжителы юсть =64. 


правилоіі: если 

возраст =55_или_болыие и 
пол =м 
то 

основнаяпродолжительность =60. 


правило12: если 

вес=55_или_меньше и 
сложение =мелкое и 
пол =ж 
то 

относительныйвес =нормальный. 


правилоІЗ: если 

вес=85_или_болыне и 
сложение =мелкое и 
пол =ж 
то 

относительный вес =излишний. 


правилоН: если 

вес =55-85 и 
сложение =мелкое и 
пол =ж 
то 

о гноси гельныйвес =и злишний. 

правило15: если 

вес=55_или_меныне и 
сложение=крупноеи 
то 

относи гельный вес =недостаточный. 
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пранилоіб: если 

вес=55_или_мепынс и 
сложение=крупное и 
пол=м 
то 

относител ы іыйвес =пелоста точный. 

правило17: если 

вес =55-85 и 
сложение =мелкое и 
пол =ж 
то 

относител ьный_вес=излишпий. 

правило18: если 

вес =55-85 и 
сложение =круиное и 
пол =ж 
то 

относительный_вес=нормалыіый. 

правило19: если 

вес =55-85 и 
сложение=мелкое и 
нол=м 
то 

относительныйвес =иормалыи>ій. 

правило20: если 

вес =55-85 и 
сложение =крупнос и 
нол=м 
то 

о тноси тсльный всс =нелоста точный. 

правило21: если 

вес=85_или_6олыне и 
пол =ж 
то 

относителыіый вес =излиіппий. 
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правило22: если 

вес=85_или_6олыме и 

ІІОЛ=М и 

сложение =мелкое 
то 

отпосительный_вес=излишний. 

правило23: если 

вес =85_или_6олыие и 
пол =м и 

сложение =крупное 
го 

огносительный_вес=нормальный. 

правило24: если 

холестерин =низкий и 
жиры =излишек 
іо 

коронарныйриск =ниже_срелпего. 

правило25: если 

холестерин =низкий и 
жиры =норма 
го 

коронарныйриск =срелний. 

нравило26: если 

холестерин =излишек 

коронарныйриск =выше_срелнего. 

правило27: если 

холестерин =порма 
то 

коронарныйриск =средний. 

правило28: если 

соль=излишек 

то 

к ровиі юе лавлеііие =выше_срелнсі о. 
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иранило29: если 

соль=норма 

то 

кровяпос_лавление=срелнес. 


правилоЗО: если 

кальций =излишек 
то 

рискостеонороза =ниже_срелиего. 


гіравилоЗІ: если 

кальций =иорма 
то 

рискосгеопороза =срслпий. 


правило32: если 

кальций =иизкий 

риск остеопороза =выше_срелнего. 


правилоЗЗ: если 

отіюсиі ел ыіый_вес=и зливший и 
коронарпыйриск =выше_срелпсго и 
к ровяпое лавление =выіпс_срелнсі о 
курение =ла 
то 

перспектива =унылая. 


нравило34: если 

относи-телыіый_вес=излиіііпий и 
короііарпый риск =выше_срелнеі о и 
кровяііое_лавление=выше_средііего 
курение =нет 
то 

перспектива =плохая. 
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правило34: если 

отпосителыіый_вес=и зливший и 
коронарныйриск =вышс_срелнего и 
кровяное_давление=выше_среднего и 
курение =нет 
то 

перспектива =плохая. 


правило35: если 

о гносител ьиыйвес =излиіпний и 
коронарный риск =вышс_среднего и 
кроняпое_давление=среднее и 
курение =нет 
то 

перспектива =хорошая. 


правилоЗб: если 

относительиыйвес =излишний и 
серлзаб=пизкий и 
кровяпое_лавление=среднее и 
курение=нет 
то 

перспектива =хорошая. 


правило37: если 
зн =да и 

сердза6=низкий и 
кровяное давление =среднее и 
курение =пет 
то 

перспектива =отличная. 

правило38: если 
зн=да и 

коронарный риск =выше_срелнего и 
кровянос_лавление=среднее и 
курение =да 
то 

перспектива ^посредственная. 
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правило39: если 
зи =ла и 

ссрлзаб=низкий и 
к ров я 11 оелавлеі ше =срелі іее и 
курение =ла 
то 

перспектива =посрелственная. 

правило40: если 
зп=ла и 

серлзаб=низкий и 
кровяное_лавление=срелнес и 
курение =нет 
го 

перспектива ^хорошая. 

правило41: если 
старт =ла 
го 

перспектива =иеизвестна. 

правило42: если 

раса=неі роилная и 
происхожлепие=срелиземпоморскос 
то 

риск=высокий. 

нравило43: если 

харак гср=агрессивпый 
то 

гипличпости =тип_а. 

правило44: если 

характер =мягкий 
то 

гипличпости =ТИП_Ь. 

правило45: если 

гипличносги =тип_а 
то 

риск =пысокий. 
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правило46: если 
старт =ла 
то 

риск =неизвестеи. 
пранило47: если 

потреб лепиеалкогол и =у меренное 
го 

дополи =посрслстиепно. 
правило48: если 

по греблепиеалкоголи =ііе_упо 1 реблие г 
го 

лополп=хороіио. 
правило49: если 

потроблеиие_алкоголя=чрезмерно 

ЛОІІОЛП “ПЛОХО. 

правило50: если 

перепек 1 ива-унылая и 
риск-высокий и 
дополи =плохо 
го 

фактор =мшіус_12. 

правилоЗІ: если 

перспектива=отличпая и 
риск=неизвестен и 
лоі юли —і шерелегі $еппо 
го 

фак тор=плюс_12. 

ііравило52: если 

перспек тива =о гличная и 
риск=высокий и 
дополи =посрелсгвенпо 
то 

фактор =і юль. 
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правило53: если 

перспектива =хорошая и 
риск =высокий и 
дополи =посредственно 
то 

фактор=поль. 


нравило54: если 

перспектива =хорошая и 
риск =высокий 
то 

фактор =мипус_12. 


правило55: если 

перспектива =посрелственная и 
риск ^высокий 
то 

фактор =мииус_12. 


правило56: если 

перспектива =отличная и 
риск=иеизвестеи и 
дополи =хорошо 
го 

фактор =плюс_12. 


правило57: если 

перспектива=отличная и 
риск=пеизвестен и 
дополп =плохо 
то 

фактор =плюс_12. 

правило58: если 

перспектива =носрелственная и 
риск =иеизвестеи 
то 

фактор =плюс_12. 
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правило59: если 

перспектива =хорошая и 
риск =иеизвестеи 
то 

фактор =ноль. 


правилобО: если 

перспектива =упылая и 
риск =неизвестен 
то 

фактор =ноль. 


нравилобі: если 
старт =ла 
то 

фактор =неизвестен. 


правило62: если 

старт =выхол 
то 

фактор =выхол. 
правилобЗ: если 

основная прололжи гельность =72 и 
фактор=ноль 
то 

продолжительность =72_гола. 
правило64: если 

осповпая_проАолжителыюсть=67 и 
фактор =ноль 
то 

проАолжительность=67_лет. 
правило65: если 

осиовиая_прололжительность=64 и 
фактор =ноль 
то 

продолжительность =64_гола. 
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пранилобб: если 

основная_прололжителыюсть=62 и 
фактор-ноль 
то 

продолжи'телыюсть=62_гола. 
пранилоб7: если 

осноі (н а я_п родолжител ы юсть =60 іі 
фактор =і юлъ 
то 

продолжительность =б0_лет. 
правилобН: если 

осіюшіая_іірололжи і ел ыюсіь =72 и 
фактор =і I ліос_12 
то 

продолжительность =84_года. 
правило69: если 

основная_іірололжитслыіость=67 и 
фактор =ііліос_12 
то 

продолжительность =79_лет. 
правило70: если 

основная прололжи 1 ельнос і ь=64 и 
фактор =пліос_12 
то 

продолжительность =76_лет. 
правило71: если 

основная прололжи гельность=б2 и 
фактор =нлюс_12 
то 

продолжительность =74_года. 
иравило72: если 

основная прололжи 1 ельнос гь=б() и 
фактор =нлюс_12 
то 

продолжительность =72_года. 
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правило73: если 

основпая_продолжительность=72 и 
фактор =мииус_12 
то 

продолжительность =60_лет. 


правило74: если 

оснонная продолжительпос гь=67 и 
фактор =минус_12 

продолжительность =55_лет. 


пранило75: если 

осноннаіг продолжительнос і ь=64 и 
фак гор =минус_12 

продолжительность =52 гола. 

праиило76: если 

оснонная_прололжителыюсть=62 и 
фактор =минус_12 
то 

продолжительность =50_лет. 
пранило77: если 

оснопная_продолжительность=60 и 
фактор =мипус_12 
то 

продолжительность =48_лет. 


Пример работы с базой данных 
оценки состояния здоронья 

Какова ваша цель? 

(В ведите ( ОБЪЕКТ) ) 

продолжительность 
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Bill готовы начать? 

1. да 

2. выход 


Сколько испытуемому лет? 

1. 25_или_меиьше 

2. 25-55 

3. 55_или_болыпе 
2 

Какого пола испы туемый? 

1. м 

2. ж 
2 

Каков вес испытуемого? 

1. 55_или_меньше 

2. 55-85 

3. 85_или_больше 

1 

Т елосложение: 

1. мелкое 

2. крупное 


Потребление ненасыщенных жиров: 

1. норма 

2. излишек 


Потребление соли: 

1. норма 

2. излишек 


Испытуемый курит? 

1. да 

2. нет 
2 
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Какой расы испытуемый? 

1. негроидная 

2. енропеоидпая 

3. монголоидная 
3 

Характер испытуемого: 

1. агрессивный 

2. мягкий 

1 

По требление алкоголя: 

1. ііеунотребляет 

2. умеренно 

3. чрезмерно 
2 

РЕЗУЛЬТАТ КОНСУЛЬТАЦИИ 
продолжительность =67_лет 


КОНЕЦ КОНСУЛЬТАЦИИ 
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Искусственный интеллект стал дос¬ 
тоянием пользователей персональных 
ЭВМ. Экспертные системы перестали 
быть областью чисто академических 
исследований и превратились в один 


/ 


из самых популярных продуктов на 
рынке программного обеспечения. 
"Программирование экспертных сис¬ 
тем на Паскале" - одно из первых 
практических руководств по плани¬ 
рованию, разработке и программиро- 












